ファイル名一括置換
備忘録 [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; }