# カレントディレクトのjpgファイルに更新日時順に連番をつける opendir $dir, '.' or die; @file = sort {(stat $a)[9] <=> (stat $b)[9]} grep {/\.jpg$/} readdir $dir; $a = 0; rename $_, substr('0'.++$a, -2) . '.jpg' for (@file);