鈍足ランナーのIT日記

走るのが好きな5流のITエンジニアのブログ。

趣味の範囲は広いけど、どれも中途半端なクソブロガー楽しめるWebアプリを作ってあっと言わせたい。サーバーサイドPerl(Mojolicious)、クライアントサイドVue.js。Arduinoにも触手を伸ばす予定。

ファイル名一括置換

備忘録 [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;
}
広告を非表示にする