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")
Cheers Rolf
( addicted to the Perl Programming Language)
In reply to Re^5: Sort hash keys
by LanX
in thread Sort hash keys
by cristianro87
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |