ファイル名一括変更

Perl関連

年賀葉書の見本帳をHTML化する時に見本のファル名を変更しなければなりませんでした。
200近くあるファイル名を一点ずつ変えるのも芸がないのでまとめてPerlをつかって変更しました。 下記がそのソースです

#!/usr/bin/perl
print ("Start Rename → c?n?n");
for(my $i=1; $i<=128; $i++){
    my $in_fn="カラー_".sprintf("%03d",$i).".jpg";
    my $out_fn="c".sprintf("%03d",$i).".jpg";
   `mv $in_fn $out_fn`;
}
exit;