自然順
Perl 5ではSort::Naturallyモジュールが提供するnsort()関数を用いて配列の各要素を自然順に照合できる。
use Sort::Naturally; @narr = nsort(qw(test01.txt test1.txt test10.txt test3.txt)); print join(' ', @narr);