Beginner's Technology

sort関数(3)

• ikepon
• 2006年02月07日
• コメントする
• トラックバック (1)
• カテゴリー:Perl

sort関数に関して説明します。
sort {インラインサブルーチン} (リスト)
リストの要素をインラインサブルーチンという、{}内で定義される関数で比較して、その配列を返します。
各要素が順に比較され、サブルーチン関数には$a、$bという変数として各要素が渡されます。
次のファイルをsample111.plという名前で保存します。

@array1 = (2, 1, 3);
@array2 = (9, 12, 5);

@result1 = sort { $a <=> $b } (@array1);
@result2 = sort { $a <=> $b } (@array2);

print @result1, "\n";
print @result2, "\n";

実行結果は、次の様になります。

> perl sample111.pl
123
5912