Perl の例題

８. ファイル名の変更

　　指定ディレクトリ配下のファイル名の一定の文字列を変更します。windows の msdos コマンドには、複写や削除する copy コマンド、del コマンドがあり、これらを利用します。rename も可能ですが、今回は利用しません。



　1.仕様


■機能 ・指定ディレクトリ配下の全てのファイル名の検索文字列を変更文字列に変更する。 ・指定ディレクトリ &dir ・検索文字列 &str1 ・変更文字列 &str2 ※検索文字列には、特殊記号の指定できません。直接 \[ などで指定してください。 ※カットしたいときは、&str2="" とします。
■動作環境 [Windows 版] -- Windows 95/NT/98/Me/2000 対応 Active Perl 5.6.1.630 FreeWare (http://www2j.biglobe.ne.jp/~apollo/server/server.html)
■実行環境 ・実行モジュール: rename.pl 　※unix でも、その処理系のコマンド形式にあわせれば実行可能です。

　2.プログラミング

仕様にもとづき、Perl でコーディングすると、次のとおりです。

コーディング　例
#!/usr/local/bin/perl
######################################################################
# rename.pl : Active Perl  
# Copyright(C)2002 Sannomiya , All Rights Reserved. 
######################################################################
# 指定ＤＩＲの配下全てのファィル名を一定のルールで変更する。
# 例えば、internet temporary からコピーすると[1]がつくのをとってしまう
# dos-command rename を使用するので、画像ファイルもＯＫです。
# 履歴 
# 2002.12.05 新規作成 Ver 1.00
#
######################################################################
# 設定
######################################################################
$dir  = "c:/mysql/Docs_ja";	# この配下の全てのファイル
$list = "$dir/temp.out";		# dir/s/b の結果
$str1 = "xxx";			# 検索文字列
$str2 = "yyy";			# 変更文字列
$updsw = 1;			# 0 test  1 rename
######################################################################

# 1.開始処理 #

chdir($dir)|| die "Can't find $dir: $!\n";	# dir CHANGE

open(OUTA,"|dir/s/b > $list");		    # file name list
# output 例 
# c:\sgi\public_html\java\mainpage.html
# c:\sgi\public_html\java\faq\index.html
# c:\sgi\public_html\java\faq		    # dir 
close(OUTA);
#####################################################################

open(IN,"< $list")|| die "Can't find $list: $!\n";  # file name list

#####################################################################

# 2.メイン　処理 #
print "* rename.pl start" . "\n";

while( <IN> ) {

#####################################################################
  chop($_);

  if (! /$str1/) {next;}		# 検索文字列以外 skip

  $pgm  = $_;
  $pgm2 = $_;
  $pgm2 =~ s/$str1/$str2/;		# 変更

######################################
  print "pgm=$pgm" . " ==> \n";
  print "pgm2=$pgm2" . "\n";

  if ($updsw == 1){
	$ret = system("copy $pgm $pgm2");	# pgm2 に変更
	$ret = system("del $pgm");		# pgm  を削除
  }
#####################################################################

}	# while end

# 3.終了処理 #

close(IN);
if ($updsw == 1){
	$list =~ s/\//\\/g;	# c:/xxx/yyy はエラーになる
	$ret = system("del $list");	# IN ファイル(temp.out)を削除
}

print "* rename.pl end" . "\n";

##########End_Of_Script



　3.実行結果

　[ ] は特殊記号なので、$str1,$str2 は使用せず、次のように変更します。

　if (! /\[1\]/) {next;}　　　　　$pgm2 =~ s/\[1\]//; 

C:\perl_test>rename.pl
* rename.pl start
pgm=c:\mysql\Docs_ja\errmsg[1].txt ==>
         pgm2=c:\mysql\Docs_ja\errmsg.txt
        1 個のファイルをコピーしました。
 :
* rename.pl end
C:\perl_test>