rename批量改名的perl脚本

概述########################2010. jordan.sg #use strict;use File::Find;use Cwd;my $path = getcwd();open(LOG, ">error.log") or die "open log file fail!";print LOG "\n";#my $object_count = 0;su

########################2010. jordan.sg  #use strict;use file::Find;use   Cwd;my $path = getcwd();open(LOG,">error.log") or dIE "open log file fail!";print LOG "\n";#my $object_count = 0;sub wanted {	#print  "wanted $file::Find::name\n";    if ( -f $file::Find::name ) {        if ( $file::Find::name =~ /t\.txt$/ ) {                print LOG "$file::Find::name\n";	    my $srcfile= $file::Find::name;            my $file = $_;	         print LOG "- $_\n";            $file =~ s/t\.txt//; 			print LOG "> $file\n";            rename($srcfile,$file);         }    }	#$obj_count++;}find( \&wanted,$path );#print LOG "rename $obj_count files\n";   ##打印处理文件数close(LOG);#$file::Find::dir ：当前路径名 #$_ ：当前文件名不包含路径#$file::Find::name ：全路径的当前文件名

总结

以上是内存溢出为你收集整理的rename批量改名的perl脚本全部内容，希望文章能够帮你解决rename批量改名的perl脚本所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。