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腳本
%~d0cd %~p0perl rename.plpause