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标签中。