ファイル名一括置換

備忘録 [Perlで、フォルダ内のファイル名を一括変更するには] (http://dqn.sakusakutto.jp/2008/03/perl-2.html)

ラインスタンプのファイル名stamp_01.svgで作ったのを01.svgに置換したかったから。 もそうだけど、仕事でも使う機会があったので。

for (glob("stamp_*.svg")) {
    my $old_name = $_;
    s/(^.+)([0-9][0-9]).svg/$2.svg/;
    my $new_name = $_;
    rename $old_name, $new_name;
}