in reply to Constructing HoHoA from AoA
Output:my %hash; for ( map { [ split (/ - /, $_->[0]), [@{$_}[1..$#_]] ] } @nar ) { push @{$hash{$_->[0]}->{$_->[1]}}, $_->[2]; } print Dumper \%hash ;
Update:$VAR1 = { 'fact 2' => { 'ParamGrp1' => [ [ 'fiu', 'xxx' ] ] }, 'fact 1' => { 'ParamGrp2' => [ [ 'qux', 'bom' ] ], 'ParamGrp1' => [ [ 'foo', 'bar' ], [ 'fuu', 'gong' ] ] } };
|
|---|