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

mmh

windows系统，目录下有一些文件。
文件名为:
CODEOU22(Error)20100330073553.txt
CODEOU45(Error)20100330072350.txt
CODEOU80(Error)20100330070253.txt
CODEOU81(Error)20100330071453.txt
想取到(Error)之前和之后的字母和数字为文件重新命名。

leigh111

比如重命名为www.
s/(\w+)\(/www\(/g;
不知道理解对不对

你可以看看这个。  
?: 表示非捕获符号。就是什么也不匹配。
(?!pattern) 如果正则表达式在后面不匹配 pattern ，才会开始匹配。如/foo(?!bar)/，只有当出现 foo，并且后面不出现 bar 时才开始匹配.




Type                       Regex            Successful if the enclosed subexpression ...

Positive Lookbehind       (?<=......)        successful if can match to the left                        #例子："abcdefg" =~ m/(?<=c)/;
                                                                                                                print $`，$&,$';

Negative Lookbehind       (?<!......)        successful if can not match to the left

Positive Lookahead        (?=......)         successful if can match to the right                       #例子: "abcdefg" =~ m/(?=c)/;
                                                                                                                print $`,$&,$';

Negative Lookahead        (?!......)         successful if can not match to the right



                                      Example Showing After-Match Special Variables After the match of

                                   12               2 3   4     4 31
    "Pi is 3.14159, roughly" =~ m/\b((tasty|fattening)|(\d+(\.\d*)?))\b/;

the following special variables are given the values shown.

Variable                 Meaning                                                 Value

$'                  Text before match                                            Pi?is?

$&                  Text matched                                                 3.14159

$'                  Text after match                                             , ?roughly

$1                  Text matched within 1st set of parentheses                   3.14159

$2                  Text matched within 2nd set of parentheses                   undef

$3                  Text matched within 3rd set of parentheses                   3.14159

$4                  Text matched within 4th set of parentheses                   .14159

$+                  Text from highest-numbered $1, $2, etc.                      .14159

$^N                 Text from most recently closed $1, $2, etc.                  3.14159

@-                  Array of match-start indices into target text                (6, 6, undef, 6, 7)

@+                  Array of match-end indices into target text                  (13, 13, undef, 13, 13)

mmh

就是想取到(Error)之前和之后的字母和数字

Perl_Er

回复 3# mmh


   

CODEOU22(Error)20100330073553.txt  -> CODEOU2220100330073553.txt ??

mmh

是的

yigenjin

for f in /path/to/*; do
  newname=`echo $f | sed -e 's/(Error)//g'`
  mv $f $newname
done

sed的语法忘了，大致就这么个东西

mmh

我是windows没有sed 只能用perl

小小稻草人

1. use 5.010;
   
2. use strict;
   
3. use warnings;
   
4. use diagnostics;
   
5. 
   
6. use File::Spec;
   
7. 
   
8. use File::Copy;
   
9. 
   
10. opendir(DIR,"e:\\perl_test") 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 =~/\)/){
    
16.                 print $i."\n";
    
17.                 print $'."\n";
    
18.                 copy("$i","CODEOU$'") or die "Rename is failed:$!\n";
    
19.                
    
20.         }
    
21. }

复制代码

mmh

回复 8# 小小稻草人


出错了:
    Uncaught exception from user code:
        Rename is failed:No such file or directory
at D:/Documents and Settings/Administrator/workspace/perl/222.pl line 21

有的文件是后面的数据是一样的像这两个：
CODEOU80(Error)20100330141419.txt
CODEOU81(Error)20100330141419.txt

所以只有全取到才可以，如果把(Error)改了也可以！！

小小稻草人

回复 9# mmh

你也没有给列出相关文件名！
改成这样：

1. foreach my $i (@file){
   
2.         if ($i =~/(\w+)\(Error\)/){
   
3.                 copy ("$i","$1$'") or die "Rename is failed:$!\n";
   
4.                
   
5.         }

复制代码