perl rename

biofqq

zhlong8

楼主看错误提示啊。还有看 readdir 的说明，它只返回文件名不是绝对地址，还有你没有过滤 . .. ，你这需求完全可以用 glob 实现的。有疑问多查下 perldoc -f

1. elsif (rename $file, $newfile) {
   
2.   } else {
   
3. warn "rename $file to $newfile failed! ";
   
4.   }

复制代码

这个用法很好玩，不过觉得还是用 or warn 清晰啊

wfnh

1. 
   
2. use File::Spec::Functions;
   
3. for (readdir DIR)
   
4. {
   
5.     next if /^.+$/;
   
6.     my $newfile = $_;
   
7.     $newfile=~ s/B1109//;
   
8.     -e catfile($dir,$newfile) ? die $! : (rename($_,$newfile) or die $!);
   
9. }
   

复制代码

biofqq

回复 2# zhlong8

glob is so easy!

1. my $file;
   
2. foreach $file(glob "C:/blast/da/oct4_p/*.seq")
   
3. {
   
4. my $newfile=$file;
   
5. $newfile=~ s/B1109//;
   
6. if (-e $newfile)
   
7.   {
   
8. warn "can't rename $file to $newfile: $newfile exists ";
   
9.   } elsif (rename $file, $newfile) {
   
10.   } else {
    
11. warn "rename $file to $newfile failed:$! ";
    
12.   }
    
13. }

复制代码

zhlong8

回复 4# biofqq


    因为以前我也写过你这样的代码啊，一点就通你进步肯定很快的。到一定程序还要多看看官方文档，在书上学些习惯用法。可能过不了几天你就会写成这样了

1. use strict;
   
2. use warnings;
   
3. 
   
4. foreach my $file (glob "C:/blast/da/oct4_p/*.seq") {
   
5.     my $newfile=$file;
   
6.     $newfile=~ s/B1109//;
   
7.     warn "can't rename $file to $newfile: $newfile exists " if -e $newfile;
   
8.     rename $file, $newfile or warn "rename $file to $newfile failed:$!";
   
9. }

复制代码