Sort keys in a hash numerically

[mickey]

Hi,

I have a has with keys like
Char. 123
Char. 721
Char. 234

and so on, that is a char followed by an integer.

I want to iterate over the whole hash in numerical order. At present using

foreach my $key(sort (keys %char))

sorts them but in lexicographic order. Is there a way in Perl around that?

Thanks,
-M

 

[xhoster]

Hi,

I have a has with keys like
Char. 123
Char. 721
Char. 234

and so on, that is a char followed by an integer.

If all the keys start with "Char. ", that seems pretty uninteresting.
Why not just strip that off and store only the number?

I want to iterate over the whole hash in numerical order. At present
using

foreach my $key(sort (keys %char))

foreach my $key (sort {sfrn($a) <=> sfrn($b)} keys %char)

where sfrn is Some Function that takes a key and Returns the Numberic
portion.

Xho

 

[usenet]

sorts them but in lexicographic order. Is there a way in Perl around that?

perldoc -q sort

Your question is answered in the topic:

How do I sort an array by (anything)?

 

[Xicheng Jia]

Hi,

I have a has with keys like
Char. 123
Char. 721
Char. 234

and so on, that is a char followed by an integer.

I want to iterate over the whole hash in numerical order. At present using

foreach my $key(sort (keys %char))

sorts them but in lexicographic order. Is there a way in Perl around that?

A solution with the Schwartzian Transform:

my %hash = (
"Char.123" => "part1",
"Char.721" => "part2",
"Char.234" => "part3",
);

print map { "$_->[0] => $hash{$_->[0]}\n" }
sort { $a->[1][1] <=> $b->[1][1] }
map { [ $_, [ split/\./ ] ] }
keys %hash;

Xicheng

 

[mickey]

If all the keys start with "Char. ", that seems pretty uninteresting.
Why not just strip that off and store only the number?

Thanks everyone. I just stripped off the chars which made everything
simpler.

-M

 

[anno4000]

Hi,

I have a has with keys like
Char. 123
Char. 721
Char. 234

and so on, that is a char followed by an integer.

I want to iterate over the whole hash in numerical order. At present using

foreach my $key(sort (keys %char))

sorts them but in lexicographic order. Is there a way in Perl around that?

A solution with the Schwartzian Transform:

my %hash = (
"Char.123" => "part1",
"Char.721" => "part2",
"Char.234" => "part3",
);

print map { "$_->[0] => $hash{$_->[0]}\n" }
sort { $a->[1][1] <=> $b->[1][1] }
map { [ $_, [ split/\./ ] ] }
keys %hash;

A regex capture instead of split is a little simpler:

print map { "$_->[0] => $hash{$_->[0]}\n" }
sort { $a->[1] <=> $b->[1] }
map { [ $_, /(\d+)/ ] }
keys %hash;

Anno