怎么样为一个目录下的文件全部重命名

mmh

不好意思~
还是相同的错误
Uncaught exception from user code:
        Rename is failed:No such file or directory
at D:/Documents and Settings/Administrator/workspace/perl/222.pl line 17

小小稻草人

回复 11# mmh


    你好好检查一下你的代码吧。
D:/Documents and Settings/Administrator/workspace/perl/222.pl line 17 --->你是WINDOWS还中UNIX 这是什么路径
注意e:\\perl_test这里是两个'\

mmh

我只改了目录的路径！
怪了，我是直接复制你的代码试的。

小小稻草人

回复 13# mmh


        你好好检查一下你的代码吧。
D:/Documents and Settings/Administrator/workspace/perl/222.pl line 17 --->你是WINDOWS还中UNIX 这是什么路径
注意e:\\perl_test这里是两个'\

mmh

是的代码没有错误

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use diagnostics;
   
5. 
   
6. use File::Spec;
   
7. 
   
8. use File::Copy;
   
9. 
   
10. opendir(DIR,"D:\\ExPress_EB\\UploadTxt") or die "Can't open the current directory:$!\n";
    
11. my @file=readdir(DIR);
    
12. close DIR;
    
13. 
    
14. foreach my $i (@file){
    
15.         if ($i =~/(\w+)\(Error\)/){
    
16.                 copy ("$i","$1$'") or die "Rename is failed:$!\n";
    
17.                
    
18.         }
    
19. }

复制代码

1. Uncaught exception from user code:
   
2.         Rename is failed:No such file or directory
   
3. at D:/Documents and Settings/Administrator/workspace/perl/222.pl line 17
   

复制代码

colphenix

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use File::Copy;
   
4. my @filename_array = glob '*.txt';
   
5. foreach my $filename (@filename_array) {
   
6.     move "$filename", "" if $filename =~ m/(\(Error\))/;
   
7. }
   

复制代码

奇怪，这行贴成代码看不到$`$'
move "$filename", "$`$'" if $filename =~ m/(\(Error\))/;

mmh

谢谢楼上的各位了！

小小稻草人
colphenix

两位的代码都是可以的，是我自己的代码有问题现在以经好了。

mwm5

回复 7# mmh


    呵呵，有Windows下的sed，记得在cn-dos上见到过~~

magic_tianya

回复 1# mmh


    rename.pl

$op = shift or die "Usage: rename expr [files]\n";
chomp (@ARGV = <STDIN>) unless @ARGV;
for(@ARGV) {
$was = $_;
eval $op;
die $@ if $@;
rename ($was, $_) unless $was eq $_;
}

传说是larry写的~