如何批量修改文件的扩展名?
#!/usr/bin/perl
#Rename the HTML file to html
@files=`ls -1 $ARGV[0]`;
foreach $file(@files){
$leng=length($file)-1;
$file=substr($file,0,$leng);
$file_type=substr($file,$leng-4,$leng);
$file2=substr($file,0,$leng-4);
$file2=sprintf("%shtml",$file2);
if($file_type eq "HTML"){
printf("mv $file $file2\n");
rename($file,$file2);
}
}