Re^2: Transform Array Ref to Hash Ref

No need (and probably shouldn't ... though i see that OP did) to modify the input w/the $$ary[1] = '0' statement ..

my %hash;
foreach my $row ( @array ) {
        my $k = defined($row->[1]) ? $row->[1] : 0;
        push @{ $hash{$k} }, $row->[0];
}
[download]

or a more condensed version:

my %hash;
push @{ hash{ defined($_->[1]) ? $_->[1] : 0 } }, $_->[0] for @array;
[download]

Comment on Re^2: Transform Array Ref to Hash Ref - Where's my error? Select or Download Code

Replies are listed 'Best First'.
Re^3: Transform Array Ref to Hash Ref - Where's my error? by ayrnieu (Beadle) on Feb 14, 2006 at 07:20 UTC
Even more condensed: `my %h; push @{$h{$_->[1]\|\|0}}, $_->[0] for @a;` [download]	[reply] [d/l]