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;

トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-09-12 (火) 18:44:06 (4727d)