文件改名的Perl

#! perlprint "说明如下：下面的程序是把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时，必须要加上目录名，否则无法进行改名。

伤心！。。。