Consider:
#!/usr/bin/perl
use strict;
use warnings;
my %hash;
foreach (1 .. 10) {
$hash{$_} = $_;
}
foreach(sort(keys %hash)) {
print $_ . ": " . "$hash{$_}" . "\n";
}
When I execute the above code, the result is as below:
1: 1 10: 10 2: 2 3: 3 4: 4 5: 5 6: 6 7: 7 8: 8 9: 9
I expect "10: 10" to be the last one that is printed. Why does Perl give me a surprise in this case?
sort
always defaults to string comparison.
If you want a numeric sort, you have to be explicit.
sort {$a <=> $b} (keys %hash)
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With