複数のスクリーンショットを桁揃え連番にリネーム

#!/usr/bin/perl

opendir(DIR,"./") or die "$dir :: $!";
my @FILE = grep /\.pdf$/,readdir(DIR);
close(DIR);
for(@FILE)
{
$_ =~ /(\d+)\./;
my $num = sprintf("%03d.pdf",$1);
rename $_ => $num;
}
exit;

これを適当な名前で保存(モード=>Perl、改行コード=>UNIX(LF))
スクリーンショットと同じフォルダに置く
デスクトップでもＯＫ
miでコレを開いて[ツール]メニューから[実行]を選ぶ

これだけです
ターミナルからでも出来るけどエディタでそのまま実行出来る方が
Macユーザとしては簡単でしょ？

# 10行で収めたかったなぁ・・・

# Perlモードってデフォルトぢゃぁ無かったかな？
　Perl mode for mi