Re: Sorting Multilevel Hashes

in reply to Sorting Multilevel Hashes

I don't have an answer for you, but, then, you don't have a question, do you? :-)

I do, however, have several comments:

There are several egregious syntax errors in your code (e.g. the unwanted curly at the end of line 1, the use of $relName rather than $rName in line 6...) Always(!) put
```
use strict;
use warnings;
[download]
```
at the top of your code to avoid these errors (recommended reading: Use strict warnings and diagnostics or die).

Please, please, adopt an Indent style. Perl doesn't care, but it'll make your code far more readable to us humans.

In order to help you, we most likely need some indication of what your input data looks like, and of what output you would like from this data.

On a point of detail, I note that your outermost hash is keyed on $related_pin. Are you sure that this value will be unique for all of your data?

Comment on Re: Sorting Multilevel Hashes Select or Download Code

Replies are listed 'Best First'.
Re^2: Sorting Multilevel Hashes by newCoder (Initiate) on Apr 24, 2014 at 23:36 UTC
I am reading an input file to create a hash. My data looks like this. This is after I ran the code without sorting by the value. I need to add the sort by value,ie delay. pin Name related_pin time_type rise_fall delay DQ5_RX_CLK M2CLKP c_rise rise_transition 0.014446 DQ2_RX_CLK M2CLKP c_rise rise_transition 0.014464 DQ0_RX_CLK M2CLKP c_rise rise_transition 0.014452 DQ3_RX_CLK M2CLKP c_rise rise_transition 0.014452 DQ7_RX_CLK M2CLKP c_rise rise_transition 0.014430 DQ4_RX_CLK M2CLKP c_rise rise_transition 0.014446 DQ8_RX_CLK INT_CLK c_fall fall_transition 0.199360 DQ6_RX_CLK INT_CLK c_fall fall_transition 0.199322 DQ1_RX_CLK INT_CLK c_fall fall_transition 0.199500 DQ5_RX_CLK INT_CLK c_fall fall_transition 0.199248 DQ2_RX_CLK INT_CLK c_fall fall_transition 0.199368 [download] to create the hash I read in a file `$timing1{$related_pin}{$timing_type}{$rise_fall}{$pinname} = $delay;` Here is my code `foreach my $rName ( keys %timing1 ) { foreach my $tType ( sort keys %{$timing1{$rName}}) { + foreach my $rF ( sort keys %{$timing1{$rName}{$tType}}){ + foreach my $pinName ( keys %{$timing1{$rName}{$tType}{$rF}}) +{ print OUTFILE2 " $pinName\t $rName\t $tType\t $rF\t $timin +g1{$rName}{$tType}{$rF}{$pinName} \n"; } } } }` [download]	[reply] [d/l] [select]
Re^3: Sorting Multilevel Hashes by NetWallah (Canon) on Apr 25, 2014 at 01:09 UTC
Something like this : use strict; use warnings; my %timing1; chomp ($_=<DATA>); # Hdr my @hdr = split /\s+/; while (<DATA>){ chomp ; s/^\s+//; my @r=split /\s+/; $timing1{$r[1]}{$r[2]}{$r[3]}{$r[0]}=$r[4]; } foreach my $rName ( keys %timing1 ) { foreach my $tType ( sort keys %{$timing1{$rName}}) { foreach my $rF ( sort keys %{$timing1{$rName}{$tType}}){ + my @by_val = map {[$timing1{$rName}{$tType}{$rF}{$_},$_]} keys %{$timing1{$rName}{$tType}{$rF}}; @by_val = sort { $a->[0] <=> $b->[0]} @by_val; foreach my $aref ( @by_val) { my ($val, $pinName) = @$aref; print " $pinName\t $rName\t $tType\t $rF\t $val \n"; } } } } __DATA__ pin Name related_pin time_type rise_fall delay DQ5_RX_CLK M2CLKP c_rise rise_transition 0.014446 DQ2_RX_CLK M2CLKP c_rise rise_transition 0.014464 DQ0_RX_CLK M2CLKP c_rise rise_transition 0.014452 DQ3_RX_CLK M2CLKP c_rise rise_transition 0.014452 DQ7_RX_CLK M2CLKP c_rise rise_transition 0.014430 DQ4_RX_CLK M2CLKP c_rise rise_transition 0.014446 DQ8_RX_CLK INT_CLK c_fall fall_transition 0.199360 DQ6_RX_CLK INT_CLK c_fall fall_transition 0.199322 DQ1_RX_CLK INT_CLK c_fall fall_transition 0.199500 DQ5_RX_CLK INT_CLK c_fall fall_transition 0.199248 DQ2_RX_CLK INT_CLK c_fall fall_transition 0.199368 [download] OUTPUT: DQ7_RX_CLK M2CLKP c_rise rise_transition 0.014430 DQ4_RX_CLK M2CLKP c_rise rise_transition 0.014446 DQ5_RX_CLK M2CLKP c_rise rise_transition 0.014446 DQ3_RX_CLK M2CLKP c_rise rise_transition 0.014452 DQ0_RX_CLK M2CLKP c_rise rise_transition 0.014452 DQ2_RX_CLK M2CLKP c_rise rise_transition 0.014464 DQ5_RX_CLK INT_CLK c_fall fall_transition 0.199 +248 DQ6_RX_CLK INT_CLK c_fall fall_transition 0.199 +322 DQ8_RX_CLK INT_CLK c_fall fall_transition 0.199 +360 DQ2_RX_CLK INT_CLK c_fall fall_transition 0.199 +368 DQ1_RX_CLK INT_CLK c_fall fall_transition 0.199 +500 [download] What is the sound of Perl? Is it not the sound of a wall that people have stopped banging their heads against? -Larry Wall, 1992	[reply] [d/l] [select]
Re^4: Sorting Multilevel Hashes by Anonymous Monk on Apr 25, 2014 at 04:04 UTC
Great. This is exactly what I needed. thanks a ton. Appreciate it	[reply]
Re^4: Sorting Multilevel Hashes by Anonymous Monk on Apr 25, 2014 at 18:31 UTC
This works great though I do not fully understand the value sort . My 4 page program is reduced to 1 page now.One more thing I need from this hash is that I need to be able to access the max and min values in each set . For example mindelay =DQ7_RX_CLK rise_transition 0.014430 maxdelay =DQ2_RX_CLK rise_transition 0.014464 spread = maxdelay -mindelay etc Please help with this too.	[reply]
Re^5: Sorting Multilevel Hashes by NetWallah (Canon) on Apr 25, 2014 at 21:58 UTC
Re^3: Sorting Multilevel Hashes by Anonymous Monk on Apr 24, 2014 at 23:48 UTC
I am reading an input file to create a hash. My data looks like this. ... That isn't a perl data structure, the one you call %timing1 in your code If you're asking about sorting some hash, ddumper^{Basic debugging checklist} to visualize the data structure you have (lesson courtesy of Basic debugging checklist and brian's Guide to Solving Any Perl Problem )	[reply]

In Section Seekers of Perl Wisdom