Sorting array of hash references

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I've the following code:

my @data = (
  { name => 'john', score => '70' },
  { name => 'peter', score => '90' },
  { name => 'dan', score => '50' },
);

foreach my $href (@data) {
  print "$href->{'name'}\t$href->{'score'}\n";
}


# ouptput

john   70
peter  90
dan    50
[download]

I'm thinking if there's a way to sort the array by 'score' to produce the output:

peter  90
john   70
dan    50
[download]

Is there a way to do it?

Thanks :)

2005-12-17 Retitled by GrandFather to fix spelling of references (to aid searching)
Original title: 'Sorting array of hash refereces'

Comment on Sorting array of hash references Select or Download Code

Replies are listed 'Best First'.
Re: Sorting array of hash references by bobf (Monsignor) on Dec 17, 2005 at 05:30 UTC
davido provided a nice example, but if you want to sort it with the highest scores first you need to switch the position of the `$a` and `$b` in the sort block: `my @sorted = sort { $b->{score} <=> $a->{score} \|\| $a->{name} cmp $b->{name} } @data;` [download] See sort and the Tutorials on QandASection: sorting for more information. Don't forget about Super Search, either. Searching for "sort array of hashes" turns up several good hits, including: Sorting an array of hashes How to sort array of hashes? sort on values in an array of hashes Sorting an array of hashes by hash field	[reply] [d/l] [select]
Re: Sorting array of hash references by davido (Cardinal) on Dec 17, 2005 at 05:25 UTC
Like this: `my @sorted = sort { $a->{score} <=> $b->{score} or $a->{name} cmp $b->{name} } @unsorted;` [download] I employed logical short circuiting to allow the comparison routine to compare names if two equal scores are encountered. Dave	[reply] [d/l]
Re: Sorting array of hash references by l.frankline (Hermit) on Dec 17, 2005 at 07:56 UTC
`my @data = ( { name => 'john', score => '70' }, { name => 'peter', score => '90' }, { name => 'dan', score => '50' }, ); my @new = sort { $a->{score} <=> $b->{score} } @data; print "$_->{'name'}\t$_->{'score'}\n" for (@new);` [download] regards, Franklin Don't put off till tomorrow, what you can do today.	[reply] [d/l]
Re: Sorting array of hash references by Anonymous Monk on Dec 17, 2005 at 05:55 UTC
Wonderful! I didn't know 'sort' can be used that way. Thank you so much :)	[reply]