perlで比較関数を使ったソートの仕方

質問

今、季節をソートするようなプログラムを考えています。
my @array = ('spring','fall','winter','summer');
my @sort = sort number(@array);
sub number {
if ($a < $b) {
return -1;
} elsif ($a == $b) {
return 0;
} elsif ($a > $b) {
return 1;
}
}
実行結果：spring ,summer ,fall ,winter
比較関数を使用して、「春・夏・秋・冬」とソートできるようにしたいです。上のプログラムはまだ途中なんですが、この場合比較関数はどのように実装すればうまくソートできるんでしょうか？分かる方、よろしくお願いいたします。

回答No.1

Werner · ベストアンサー

'spring', 'summer', 'fall', 'winter'をいったん整数1～4に置き換えてから
数の比較をするのが分かりやすいかな。

------------------------------------------------
my @array = ('spring','fall','winter','summer');
my @sorted_array = sort season_comp @array;

print join(",",@array) . "\n";
print join(",",@sorted_array) . "\n";

sub season_comp() {
　　my %season2num = ('spring'=>1,'summer'=>2,'fall'=>3,'winter'=>4);

　　my $a_;
　　if($season2num{$a}){$a_ = $season2num{$a};}
　　else{$a_ = 0;}
　　my $b_;
　　if($season2num{$b}){$b_ = $season2num{$b};}
　　else{$b_ = 0;}

　　return $a_ - $b_;
}

補足

回答ありがとうございます。
少し質問内容に追加したいことがあるので補足したいと思います。
季節の部分が以下のようなハッシュのデータだったとするとハッシュを季節順にソートするには同じように実装すればよいでしょうか??
my $hash = [
{ value => 'spring', type => 'season' },
{ value => 'winter', type => 'season' },
{ value => 'fall', type => 'season' },
{ value => 'summer', type => 'season' },
];

回答No.3

BLUEPIXY

#2>季節の部分が以下のようなハッシュのデータだったとするとハッシュを季節順にソートするには同じように実装すればよいでしょうか??
ハッシュでなくて$hash のことだとすると
以下のような感じかと思います。
要するに、リファレンスとデリファレンスが判っていれば同じです。
----------------------------------------------------------------
my $hash = [
{ value => 'spring', type => 'season' },
{ value => 'winter', type => 'season' },
{ value => 'fall', type => 'season' },
{ value => 'summer', type => 'season' },
];

@$hash = sort season_cmp @$hash;

sub season_cmp {
my %seq = ('spring' => 1, 'fall' => 3, 'winter' => 4, 'summer' =>2 , 'autumn' => 3);
$seq{$a->{value}} - $seq{$b->{value}};
}
use Data::Dumper;
print Dumper(@$hash);

お礼

解決できました。
ありがとうございました。
リファレンスなどはまだまだ勉強不足なのでよく調べておきたいと思います。

回答No.2

BLUEPIXY

季節の順序の情報が必要です。
my @array = ('spring','fall','winter','summer');
my @sort = sort number @array;
sub number {
my %seq = ('spring' => 1, 'fall' => 3, 'winter' => 4, 'summer' =>2 , 'autumn' => 3);
$seq{lc $a} - $seq{lc $b};
}
print join(",", @sort);

補足

回答ありがとうございます。
少し質問内容に追加したいことがあるので補足したいと思います。
季節の部分が以下のようなハッシュのデータだったとするとハッシュを季節順にソートするには同じように実装すればよいでしょうか??
my $hash = [
{ value => 'spring', type => 'season' },
{ value => 'winter', type => 'season' },
{ value => 'fall', type => 'season' },
{ value => 'summer', type => 'season' },
];