前段时间写了一个改文件名后缀的程序，请仙子帮忙改进。

Ray001

1. #!/usr/bin/perl -w
   
2. # SCRIPT: ren_sp.pl
   
3. # AUTHOR: Ray001
   
4. # DATE: 2010/04/21
   
5. # REV: 1.00
   
6. # For Study
   
7. #
   
8. # PURPOSE:
   
9. # 将001...999后缀的文件重命名为后缀hx1...hx999
   
10. 
    
11. use strict;
    
12. 
    
13. if ( @ARGV < 1 ) {
    
14.     die "Usage: ren_sp.pl basename\n";
    
15. }
    
16. 
    
17. # 读取当前目录下所有文件名
    
18. opendir( my $curdir, "." );
    
19. my @files = readdir($curdir);
    
20. closedir($curdir);
    
21. 
    
22. # 循环处理每个文件
    
23. foreach my $file (@files) {
    
24. 
    
25.     # 检索文件名前缀匹配输入参数，后缀匹配3位数字的文件
    
26.     if ( $file =~ /($ARGV[0].*)(\d\d\d)$/ ) {
    
27.         my $surfix   = $2;
    
28.         my $file_new = $1 . "hx" . &kill_head_zero($surfix);
    
29.         print "rename $file to $file_new\n";
    
30.         rename( $file, $file_new );
    
31.     }
    
32. }
    
33. 
    
34. # 将001...999转换为1...999
    
35. sub kill_head_zero {
    
36.     if ( @_ != 1 ) {
    
37.         print "WARNING! &convert_to_hx need exactly one arguments!\n";
    
38.     }
    
39.     1 while $_[0] =~ s/^0(.*)/$1/;
    
40.     $_[0];
    
41. }

复制代码

我总觉得应该有更简洁的方法-。-;;

黑色阳光_cu

1. 
   
2. #!/bin/env perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. foreach my $file (glob("*.*"))
   
8. {
   
9.         if ($file =~ /(.+)(\.\d{3})$/)
   
10.         {
    
11.                 my ($prefix, $endfix) = ($1, $2);
    
12.                 if ($endfix =~ s/0*([1-9]\d*)/hx$1/)
    
13.                 {
    
14.                         rename($file, $prefix . $endfix);
    
15.                 }
    
16.         }
    
17. }
    

复制代码

试试。。。。。。。。

toniz

1. foreach(glob "*.[0-9][0-9][0-9]"){$a=$_;s/(.*\.)(\d\d\d)/${1}.hx.int($2)/e;rename($a,$_) ;}

复制代码

toniz

{:3_186:}前面忘记写perl -e 啦

liyangole

学习

Ray001

回复 3# toniz

多谢各位指点，1.10版本出炉！

1. #!/usr/bin/perl -w
   
2. # SCRIPT: ren_sp.pl
   
3. # AUTHOR: Ray001
   
4. # DATE: 2010/04/21
   
5. # REV: 1.10
   
6. # For Study
   
7. #
   
8. # PURPOSE:
   
9. # 将001...999后缀的文件重命名为后缀hx1...hx999
   
10. 
    
11. use strict;
    
12. 
    
13. if ( @ARGV < 1 ) {
    
14.     die "Usage: ren_sp.pl prefix \n";
    
15. }
    
16. 
    
17. # 检索文件名前缀匹配输入参数，后缀匹配3位数字的文件
    
18. foreach (glob("$ARGV[0]*.[0-9][0-9][0-9]")) {
    
19.         my $file=$_;
    
20.         s/(.*\.)(\d\d\d)/${1} . 'hx' . int($2)/e;
    
21.         print " rename $file to $_ \n";
    
22.         rename( $file, $_ );
    
23. }
    

复制代码

lbk90032190

这是我的实现
for (glob("$ARGV[0].[0-9][0-9][0-9]")) {
    my $newfile = $_;
    s/(?<=\.)0+(?=[1-9]\d*$)/hx/;
    rename( $newfile, $_ );
}

lbk90032190

for (glob("$ARGV[0].[0-9][0-9][0-9]")) {
    my $newfile = $_;
    s/(?<=\.)0*(?=[1-9]\d*$)/hx/;
    rename( $newfile, $_ );
}
上次那个+改成*

ttcn_cu

map {/(.+?)\.([0-9]{3})/;print $1.".和谐".$2,"\n"} glob "XXXXX.[0-9][0-9][0-9]"

一行的比较好玩,再"perl"一点

机器猫II

勉強になりました