Perlで、フォルダ内のファイル名を一括変更するには

2008/03/21

for (glob("log*.txt")) {
	my $old_name = $_;
	s/(^.+)([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9]).txt/$1-$2-$3-$4.txt/;
	my $new_name = $_;
	rename $old_name, $new_name;
}

参考：Perlでファイル名を変更(リネーム)するにはrename

カテゴリ: Perl