TWのSSファイルをリネームするPerlスクリプト

秒単位までファイル名につけてくれるのはありがたいがせめてゼロサプライしてくれ…というわけで、各部分の数字が1けたの場合は頭に0をつけるスクリプトを作りました。

#

#		rename_for_tw.pl	2004/03/04

#		TWのスクリーンショットのファイルは、日付などの数字が1桁と2桁混在という状態になっています。

#		これを2桁に統一するスクリプトです。

#

#

#		使い方

#		1.使いたいファイルの置いてあるディレクトリにこのスクリプトをコピー。

#		2.コマンドプロンプトを開き、そのディレクトリに移動

#		3.「perl -w rename_for_tw.pl」とうてばあら不思議。(-wはなくてもいい)

use Strict;

my @jpglist=glob("*.jpg");

foreach (@jpglist)

{

    my $before=$_;

    s/(_)([0-9]_)/$1Z$2/g;#「0」って文字がどうしても入れられない(；´Д｀) というわけでマッチ1回目。

    s/(_)([0-9]_)/$1Z$2/g;#マッチ2回目。2回すれば秒部分以外は全てマッチできる

    s/(_)([0-9]\.)/$1Z$2/g;#秒部分をマッチさせるための最後のパターン

    s/Z/0/g;#そして一気に変換

    my $after=$_;

    rename $before,$after;

}

ActivePerl 5.6.1にて動作を確認。当然ながらこのスクリプトを実行した事による一切の損害については責任をもてませんのであしからず。
追記：
スクリプトをそのままコピペしたらものすげぇ事になったので、ここに圧縮しておいて置きます。