Re: Sorting integer value hash keys

#!/usr/bin/perl

my %statistics = ( 1, 0, 2, 0, 3, 0, 4, 0, 5, 0,
           6, 0, 7, 0, 8, 0, 9, 0, 10, 0
);

foreach my $statistic (sort {$a <=> $b} keys %statistics)
{

  print $statistic ." ".$statistics{$statistic}. "\n";
}
Output:
1 0
2 0
3 0
4 0
5 0
6 0
7 0
8 0
9 0
10 0

[download]

Replies are listed 'Best First'.
Re^2: Sorting integer value hash keys by JadeNB (Chaplain) on Dec 25, 2009 at 18:53 UTC
Sorry, I can't resist: `my %statistics; undef @statistics{ 1..10 }; # or @statistics{ 1..10 } = (0) x 10 say join "\n", sort { $a <=> $b } keys %statistics;` [download] or, if you don't need a name and like the `0` values: `say join "\n", sort { $a <=> $b } keys %{{ map { $_ => 0 } 1..10 }}` [download]	[reply] [d/l] [select]
Re^3: Sorting integer value hash keys by ikegami (Patriarch) on Dec 25, 2009 at 19:25 UTC
~~You're missing a newline on the last line.~~ `say join "\n", sort { $a <=> $b } keys %{{ map { $_ => 0 } 1..10 }}` [download] ~~should be~~can be shortened to `say for sort { $a <=> $b } keys %{{ map { $_ => 0 } 1..10 }}` [download] Furthermore, since you assume the list is constant, that can be simplified to `say for sort { $a <=> $b } 1..10;` [download] And if you wanted to show that stringification doesn't matter, the following would suffice: `say for sort { $a <=> $b } map "$_", 1..10;` [download]	[reply] [d/l] [select]
Re^4: Sorting integer value hash keys by JadeNB (Chaplain) on Dec 25, 2009 at 19:41 UTC
You're missing a newline on the last line. I think that you're mistaken—`say` (as opposed to `print`) provides it for me. Furthermore, since you assume the list is constant, that can be simplified to `say for sort { $a <=> $b } 1..10;` [download] Yes, you're right; I contemplated coming back and updating the node with that, but then I would have had to point out that `sort { $a <=> $b } 1..10` could be replaced by just `1..10`, and that seemed to be going too far. :-) And if you wanted to show that stringification doesn't matter That wasn't my goal, largely because I'm not sure what you mean. UPDATE: Because I was too busy writing one-liners to read the OP's actual question; sorry.	[reply] [d/l] [select]
Re^5: Sorting integer value hash keys by ikegami (Patriarch) on Dec 25, 2009 at 20:01 UTC


Pathologically Eclectic Rubbish Lister
	PerlMonks