[Cascavel-pm] Problema com referências

[Giuliani Deon Sanches]

Supondo a sequite situação:

my @keys = qw/C1 C2 C3/;
my @contents = ();

open my $fh, '<', 'arquivo.csv';

while (my $line = <$fh>) {
    my @line_contents = split ';', $line;
    my @values = grep {defined and $_ ne ''} @line_contents;
    push @contents, {$keys[$_] => $values[$_]} for (0..$#keys);
}

close $fh;

foreach my $item (@contents) {
    print $item->{C1};
}

o print do laço foreach reclama que não é uma referência a um hash. No
push acima, o {$keys[$_] => $values[$_]} não seria uma referência a um
hash anonimo ?

-- 
twitter.com/giulianisanches
giulianisanches.blogspot.com