ファイル名の変更。ディレクトリ内及びその下のディレクトリ内のファイル名

# ファイル名の変更。ディレクトリ内及びその下のディレクトリ内のファイル名

# 動作開始コマンド
# perl c.pl

# 置換え前の文字-----下記に文字を記入-------
$s_from="01";
	
# 置換え後の文字-----下記に文字を記入-------
$s_to=  "aaa";

# 対象ファイル名。全部の時は"*"-----下記に文字を記入-------
$sa="*.html";

# メイン
$dep = 1;
&dirproc($dep);

# dirprocサブルーチン
sub dirproc{
	my($dep)=@_;
	my(@files,$file);
	@files=glob($sa);
	foreach $file1(@files){
		if(-f $file1){
			print $file1."\n";
			# ファイル名を変更
			$file2 = $file1;
			$file2 =~ s/$s_from/$s_to/;
			print $file2."\n";			
			rename $file1,$file2;
		}
	}
	@files=glob("*");
	foreach $file(@files){
		if(-d $file){
			print $file."\n";
			++$dep;
			chdir($file);
			&dirproc($dep);
			chdir("..");
			--$dep;
		}
	}
}