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 =(); 

이 필요하지 않습니다 :

my @total; 

당신이 후에 무엇에 충분하다. 배열에 해시가 포함될 것임을 선언하는 데 필요한 특수 구문이 필요하지 않습니다.

거기 foreach 부분을하는 아마 다른 방법은,하지만이 작동합니다 :

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

가 [BTW, 그 루프 내부 my @total; 선언은 (는 각 라인에 다시 것) 원하는 아마 아니다. . 첫 번째 루프 밖에서 그 이동]

다음

Answer 2

:-) 분명히

그리고 use strict; use warnings; 것은, 내가 무엇을 얻을 : 나는 단순히 @total을하고 슬라이스를 복용 각 hashref을 위해 반복하고있어

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

을 정렬 된 순서로 정렬하고 해당 값을 탭과 결합합니다. 당신이 정렬 된 순서로 필요하지 않은 경우

, 당신은 단지

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와 함께, 당신은 또한 수를 do :

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