http://qs321.pair.com?node_id=582688


in reply to HoH problem

something like this?!
my %hoh; $hoh{FILENAME1}{A}{weight}=3000; $hoh{FILENAME1}{A}{intensity}=2; $hoh{FILENAME1}{B}{weight}=4000; $hoh{FILENAME1}{B}{intensity}=3; $hoh{FILENAME2}{D}{weight}=2000; $hoh{FILENAME2}{D}{intensity}=7; $hoh{FILENAME2}{C}{weight}=5000; $hoh{FILENAME2}{C}{intensity}=3; $hoh{FILENAME3}{C}{weight}=1000; $hoh{FILENAME3}{C}{intensity}=4; $hoh{FILENAME3}{A}{weight}=6000; $hoh{FILENAME3}{A}{intensity}=3; for $key (keys %hoh){ push @sorted, {%{$hoh{$key}{$_}}, FILENAME => $key} for keys % +{$hoh{$key}} } print "weight: ",$_->{weight}," intensity: ", $_->{intensity}, " FILEN +AME: ", $_->{FILENAME}, "\n " for sort {$a->{weight} <=> $b->{weight}} @sorted