Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: HoH problem

by smokemachine (Hermit)
on Nov 07, 2006 at 16:50 UTC ( [id://582688] : note . print w/replies, xml ) Need Help??


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