数値の値でソートする – Perl

以下のようなコードを書くと、文字列として扱われてしまい、意図した結果にならない場合がある。

@array = ( 1, 2, 3, 4, 5, 10, 11, 12 );
foreach(sort @array){
  print ;
  print "\n"
}

この実行結果は以下になる。

1
10
11
12
2
3
4
5

これを回避するコードは次のようなものである。

サンプル

@array = ( 1, 2, 3, 4, 5, 10, 11, 12 );

#-- 昇順 --#
foreach(sort {$a <=> $b} @array){
  print ;
  print "\n"
}

#-- 降順 --#
foreach(sort {$b <=> $a} @array){
  print ;
  print "\n"
}

実行結果

1
2
3
4
5
10
11
12

12
11
10
5
4
3
2
1

昇順と降順は、$a,$bの位置を変更するだけである。 ちなみに、$a, $bは my などをつけなくても、Perl上ですでに定義されているため、use strictした環境でもエラーにはならない。

なお、文字列して比較したい場合には <=>をcmpに置き換える。

use strict;

my @array = ( 1, 2, 3, 4, 5, 10, 11, 12 );
foreach(sort {$a cmp $b} @array){
  print ;
  print "\n"
}
print "\n";

foreach(sort {$b cmp $a} @array){
  print ;
  print "\n"
}

1
10
11
12
2
3
4
5

5
4
3
2
12
11
10
1

このブログを応援する

お寄せいただいたお気持ちは全額サーバ代や次の記事を執筆するための原資として活用させていただいております。この記事が参考になった場合などぜひご検討ください。

PayPalで300円支払う
※金額は任意で変更できます。
※100円でも泣いて喜びますw
※住所の入力欄が現れた場合は「no needed」を選択ください
これまでのご協力者さま

- Sponsored Link -