重命名文件名称 rename

1.  perl脚步

print @ARGV;
print "\n\n";
if (@ARGV){

	@filenames = <*.avi>;
		print @filenames;
	foreach  $filename (@filenames)
	{
		$newname = $filename;
		$newname =~ s#avi#mov#;
		print "rename  $filename $newname \n";
		`rename  $filename $newname`;
	}

}
else{

	@filenames = <*.bag>;
	foreach  $filename (@filenames)
	{
		$newname = $filename;
		$newname =~ s#mov#avi#;
		`rename  $filename $newname`;
	}

}

2.  运行bat脚本

%~d0
cd %~p0


perl rename.pl


pause