Perl：打印单个键具有多个值的哈希

Question

我有多个值的哈希键。 如何在哈希中独立打印键的多个值？

# HASH with multiple values for each key
my %hash = ( "fruits" => [ "apple" , "mango" ], "vegs" => ["Potato" , "Onion"]);

# SET UP THE TABLE
print "<table border='1'>";
print "<th>Category</th><th>value1</th><th>value2</th>";    

#Print key and values in hash in tabular format
foreach $key (sort keys %hash) {
    print "<tr><td>".$key."</td>";
    print "<td>".@{$hash{$key}}."</td>";
}

*电流输出：*

 Category  Value1         Value2
 fruits    apple mango
 vegs      Potato Onion

*所需输出：*

 Category  Value1   Value2
 fruits    apple     mango
 vegs      Potato    Onion

Answer 1

尝试将循环的第二行替换为

print "<td>$_</td>" for @{ $hash{$key} };

这将遍历数组引用中的每个项目并将它们包装在td标签中。