Perl: Sort Array after a Hash-value

1
votes

Is there a "Perl-ish" way to sort a array of hashes after a hash-val?

my @l = ({k1 => "1", k2 => "one"}, {k1 => "2", k2 => "two"}, 
     {k1 => "3", k2 => "three"});

foreach (@l)
{
  print "\n" . $_->{k1} . ", " . $_->{k2};
}

The order I get is the order I inserted (what else...). But I'd like to sort it after a hash-value. I can imagine the algorithmic-way. But I am asking about a maybe already existing function or something.

Thanks!

2
perlhash
Always use strict; use warnings; in your code. - AbhiNickz
Your are 100% right. But I think it is not necessary for that sample. It is just to describe the question. - chris01

2 Answers

5
votes

To sort by the value behind the k1 key, you can do as follows.

my @sorted = sort { $a->{k1} <=> $b->{k1} } @l;

The variables $a and $b are reserved special vars for sort. If your list-items are references, you can just use them as such.

Output with Data::Printer:

[
    [0] {
        k1   1,
        k2   "one"
    },
    [1] {
        k1   2,
        k2   "two"
    },
    [2] {
        k1   3,
        k2   "three"
    }
]
2
votes

@list = sort { $a->{'k1'} <=> $b->{'k1'} } @l;