@a_test1 = ("abc", "ddd", "bfg", "ce"); @a_test2 = (25, 42, 33, 15, 7); # 文字列としてソートされる @a_ret = sort @a_test1; print "@a_ret\n"; # 数値も文字列として処理される @a_ret = sort @a_test2; print "@a_ret\n"; # 数値用のサブルーチンを用意する sub n_sort {$a <=> $b;} @a_ret = sort n_sort @a_test2; print "@a_ret\n"; # ブロックを利用して降順にソート @a_ret = sort {$b cmp $a;} @a_test1; print "@a_ret\n";