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