新手求助，批量修改文件的脚本出现问题

qianyemlf

自己网上找的一个脚本，自己修改了一下，发现文件名并没有得到修改，求大神帮忙看看脚本哪里有问题

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. opendir DIR, "I:/baicao/new_result" or die;
   
6.         my @files = readdir DIR;
   
7. foreach my $file (@files)
   
8. {
   
9.               print "$file\n";
   
10.         my $newname=$file;
    
11.         $newname=~s/7genes,7taxa//g;
    
12.         rename $file,$newname;
    
13. }
    
14. print "done\n";

复制代码

q1208c

问题呢?

qianyemlf

脚本跑了但是没有达到实际效果，就是文件名并没有被改掉，不知道什么地方有问题回复 2# q1208c


   

q1208c

回复 3# qianyemlf

你确定知道你要改的文件名 是什么么?

可否贴几个原文件名上来看看?
   

qianyemlf

回复 4# q1208c

1. ORTHOMCL10631(7 genes,7 taxa)
   
2. ORTHOMCL10638(7 genes,7 taxa)
   
3. 改成
   
4. ORTHOMCL10631
   
5. ORTHOMCL10638
   
6. 就是把后面的去掉

复制代码

q1208c

回复 5# qianyemlf

那你自己看一下代码, 你的匹配根本不会成功.
   

qianyemlf

回复 6# q1208c

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. opendir DIR, "I:/baicao/new_result" or die;
   
7.         my @files = readdir DIR;
   
8. foreach my $file (@files)
   
9. {
   
10.               #print "$file\n";
    
11.         my $newname=$file;
    
12.         $newname=~s/\(.*\)//;
    
13.         rename ("I:/baicao/new_result/$file", "I:/baicao/new_result/$newname");
    
14.         print "$file\n";
    
15. }
    
16. print "done\n";
    

复制代码

这样改就ok了