Perl 哈希数组 - 引用数组中的每个哈希？

Question

我正在尝试创建一个哈希数组，我想知道如何引用数组中的每个哈希？

例如：

while(<INFILE>)    
{    
  my $row = $_;    
  chomp $row;    
  my @cols = split(/\t/,$row);    
  my $key = $cols[0]."\t".$cols[1];     

  my @total = (); ## This is my array of hashes - wrong syntax???    

  for($i=2;$i<@cols;$i++)    
  {    
    $total[$c++]{$key} += $cols[$i];      
  }    
}

close INFILE;

foreach (sort keys %total)  #sort keys for one of the hashes within the array - wrong syntax???    
{    
  print $_."\t".$total[0]{$_}."\n";    
}

提前感谢您的帮助。

Answer 1

你不需要

my @total = ();

This:

my @total;

足以满足你的需求。不需要特殊的语法来声明您的数组将包含哈希值。

可能有不同的方法来执行 foreach 部分，但这应该有效：

foreach (sort keys %{$total[$the_index_you_want]}) {
  print $_."\t".$total[$the_index_you_want]{$_}."\n";
}

[顺便说一句，在该循环内声明 my @total; 可能不是您想要的（这将是每行重置）。将其移到第一个循环之外。]

并且 use strict;使用警告；，显然:-)

Answer 2

这是我得到的：

print join( "\t", @$_{ sort keys %$_ } ), "\n" foreach @total;

我只是迭代 @total ，并为每个 hashref 按排序顺序获取一个 slice 并用制表符连接这些值。

如果您不需要按排序顺序排列它们，则可以

print join( "\t", values %$_ ), "\n" foreach @total;

但是我也会像这样压缩行处理：

my ( $k1, $k2, @cols ) = split /\t/, $row;
my $key                = "$k1\t$k2";
$totals[ $_ ]{ $key } += $cols[ $_ ] foreach 0..$#cols;

但是使用 List::MoreUtils，你也可以这样做：

use List::MoreUtils qw<pairwise>;
my ( $k1, $k2, @cols ) = split /\t/, $row;
my $key                = "$k1\t$k2";
pairwise { $a->{ $key } += $b } @totals => @cols;