DVD作成用一括リネーム

 frendir.plを使用して、カレントディレクトリ下のサブディレクトリ下のファイルを一括して リネームします。frendir.plを使用していますので、共々実行パスが通ったディレクトリに 置いて下さい。
 シェルスクリプトでも充分実現できますが、Windows のコマンドプロンプト + ActivePerl 環境 で使用するために、Perl で書いてあります。

[使用法] perl allren.pl


#!/usr/local/bin/perl
# ****************************************************************
#   カレントディレクトリ下の全サブディレクトリにあるファイル名を
#   ディレクトリ名+インデックス値形式に一括変換
# ****************************************************************

@dirs = <*>;

foreach (@dirs)
{
    #print "frendir.pl " . $_, "\n";
    system("frendir.pl " . $_);
}

総合ホームページ Perl納戸部屋