Re^2: Sort hash keys

Replies are listed 'Best First'.
Re^3: Sort hash keys by LanX (Saint) on Mar 18, 2014 at 17:41 UTC
> I updated the code, the planets things was just a test and i copy the wrong code please see How do I post a question effectively? and How (Not) To Ask A Question to avoid wasting our time. in this special case numeric sort works `DB<106> sort {$a <=> $b } @keys => ( "hs5", "hs6", "hs7", "hs8", "hs9", "hs10", "hs11", "hs12", "hs13", "hs14", "hs15", )` [download] Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l]
Re^4: Sort hash keys by cristianro87 (Initiate) on Mar 18, 2014 at 17:57 UTC
`for my $nombre (keys %cuantas_veces_sale)` [download] or `for my $nombre (sort {$a<=>$b} keys %cuantas_veces_sale)` [download] i get hs12 hs22 hs11 hs10 hs7 hs20 hs16 hs4 hs18 `for my $nombre (sort {$a cmp $b } keys %cuantas_veces_sale)` [download] i get this hs1 hs10 hs11 hs12 hs13 hs14 hs15 hs16 hs17 hs18 hs19 hs2 hs20 hs21 i need this hs1 hs2 hs3 ... hs10 hs11 ...	[reply] [d/l] [select]
Re^5: Sort hash keys by LanX (Saint) on Mar 18, 2014 at 18:13 UTC
true! `DB<123> sub num { $_[0] =~/(\d+)$/; $1} DB<124> sort { num($a) <=> num($b) } qw/hs12 hs22 hs11 hs10 hs7 hs2 +0 hs16 hs4 hs18/ => ("hs4", "hs7", "hs10", "hs11", "hs12", "hs16", "hs18", "hs20", "hs +22")` [download] Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l]