perl 修改文件名

qizhi502

提取

zhlong8

$file =~ /\(([^)]*)\)/; #提取 () 中的内容
$newfile = $1;

qizhi502

回复 2# zhlong8


    thanks，请问我的那个哪里错了？

jason680

回复  zhlong8


    thanks，请问我的那个哪里错了？
qizhi502 发表于 2010-11-24 10:40

$newfile=~ /M.{5}^-?\d+$/;#提取 () 中的内容
print "new=$newfile\n"; #打印出来就知道错在那...  

qizhi502

回复 2# zhlong8


    按照你的方法试下

1. #!/usr/bin/perl
   
2. my $string = "B1109322(MI-P2-1)M13+_A02.seq";
   
3. $string =~ /\(([^)]*)\)/;
   
4. my $sub = $string;
   
5. print "the extracted is $sub\n";

复制代码

结果：the extracted is B1109322(MI-P2-1)M13+_A02.seq
没有变，什么原因？

zhlong8

回复 5# qizhi502


    按我的你就应该是 my $sub = $1; 而不是 my $sub = $string

    去看下 perlretut 置顶里面有翻译过的

qizhi502

回复 6# zhlong8

$1代表第一对小括号中的内容，针对字符串已实验成功，现在又出点问题：
在批量修改文件名时，提示
    can't rename D:/seq/B1109302(OI-P1-1)M13+_E01.seq to OI-P1-1: OI-P1-1 exists  at E:\perl\practice\rename.pl line 12.
但是文件夹里根本没有存在
并且看了http://bbs.chinaunix.net/thread-1820956-1-1.html里面的帖子，但如果将后面的warn提示改成
    warn "can't rename $file to $newfile: $newfile exists " if -e $newfile;
    rename $file, $newfile or warn "rename $file to $newfile failed!";
结果文件夹的文件都没了，有些纳闷

1. #!/usr/bin/perl -w
   
2. #rename lots size file name
   
3. use strict;
   
4. my $file;
   
5. my $newfile;
   
6. foreach $file(glob "D:/seq/*.seq")
   
7. {
   
8.         $file =~ /\(([^)]*)\)/; #提取 () 中的内容
   
9.   $newfile = $1;
   
10. if (-e $newfile)
    
11.   {
    
12. warn "can't rename $file to $newfile: $newfile exists ";
    
13.   } elsif (rename $file, $newfile) {
    
14.   } else {
    
15. warn "rename $file to $newfile failed:$! ";
    
16.   }
    
17. }
    
18. 或
    
19. 
    
20. 
    
21. [code]#!/usr/bin/perl -w
    
22. #rename lots size file name
    
23. use strict;
    
24. my $file;
    
25. my $newfile;
    
26. foreach $file(glob "D:/seq/*.seq")
    
27. {
    
28.         $file =~ /\(([^)]*)\)/; #提取 () 中的内容
    
29.   $newfile = $1;
    
30.   warn "can't rename $file to $newfile: $newfile exists" if -e $newfile;
    
31.   rename $file, $newfile or warn "rename $file to $newfile failed!"
    
32. }
    

复制代码

zhlong8

回复 7# qizhi502


    非常抱歉，希望你有做备份 :)

    warn "can't rename $file to $newfile: $newfile exists" if -e $newfile; 这里应该直接开始下一轮循环，而不是仅仅警告继续rename
warn("can't rename $file to $newfile: $newfile exists"), next if -e $newfile;

    还有你的文件不是丢失了，应该是到当前目录了，因为 rename 第一个参数你用的是绝对地址，第二个参数是单纯的文件名，文件应该都到当前目录了。应该把捕获的 $1 由文件名改为绝对地址，而且上面的 -e 也是同样的原因仅仅检测是否在当前目录有文件名字是 $newfile 的

qizhi502

回复 8# zhlong8


    确实是在当前目录下，针对您提到的应该把捕获的 $1 由文件名改为绝对地址，是用File::Copy模块在修改之后移动还是在文件名修改之前直接定义？如果直接定义，怎么定义

zhlong8

回复 9# qizhi502


    有那么复杂吗，直接字符串连接加上不就行了 $newfile = 'D:/seq/' . $newfile;