Perl Best Practices ネタ。ソートを行う際、同じ引数を与えた場合、結果が同じとなる関数を利用する場合・・・ my @numbers = ( 1 .. 100 ); my @sorted_numbers = sort { calc($a) <=> calc($b) } @numbers; sub calc [ # いろいろ時間の掛かる処理 }sort …