2009-04-23から1日間の記事一覧

[perl][sort]

複数の値をからめたソート use strict; use warnings; use Data::Dumper; my @hoge = ( { age => 19, no => 1, area => 20 }, { age => 12, no => 2, area => 88 }, { age => 10, no => 3, area => 10 }, { age => 12, no => 3, area => 10 }, { age => 17, …

追記

最初 && で逆順やればいけるかなとおもったけど、 sort { $a->{age} <=> $b->{age} && $a->{no} <=> $b->{no} && $b->{area} <=> $a->{area} } @hoge 最初の条件に同じ数値が並ぶとアウト my @hoge = ( { age => 12, no => 1, area => 20 }, { age => 12, no…