#! perl print "说明如下:下面的程序是把seq转化为txt文件。/n"; print "请输入您要修改的文件所在的目录:/n"; my $dir = <STDIN>; chomp $dir; opendir(DIR,$dir) or die $!; while($file = readdir(DIR)){ if($file =~ //.seq/i){ $oldName = $file; print $file."/n"; $file =~s/seq/txt/; rename "$dir/$oldName", "$dir/$file"; # print "修改后的文件名:".$file."/n"; } } closedir DIR; 我浪费了一个小时,总是无法测试出脚本的问题在哪。 原来是在使用rename时,必须要加上目录名,否则无法进行改名。 伤心!。。。