求助用perl脚本对文件数组进行编辑

3009203267

回复 10# sunzhiguolu


   多谢了！看懂了不少，不过还是有一个最后的那个，$_, $1 + 1，请问是什么意思啊？

sunzhiguolu

回复 11# 3009203267

while (<DATA>){
    if (s/(\d+\K)-thumb.*\n/.html/){
        #$_ 完成替换后 01_010_001.html
        printf (qq(<page file="%s">%03d</page>\n), $_, $1 + 1);
    }
}

__DATA__
01_010_001-thumb.jpg

   

3009203267

回复 12# sunzhiguolu


    谢谢你啊！还得麻烦你一下，不过又出现了一个问题，
<page file="02_010_039.html">040</page>
<page file="02_010_040.html">041</page>
<page file="02_010_041.html">042</page>
<page file="02_020_001.html">002</page>
<page file="02_020_002.html">003</page>
<page file="02_020_003.html">004</page>
<page file="02_020_004.html">005</page>
当数字往前移的时候，计数又回从头开始，这是哪里的问题呢？

sunzhiguolu

回复 13# 3009203267
这样的话, 就给它一个固定的数值.

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $num = 2;
   
6. while (<DATA>){
   
7.     if (s/-thumb.*\n/.html/){
   
8.         printf (qq(<page file="%s">%03d</page>\n), $_, $num++);
   
9.     }
   
10. }
    
11. 
    
12. __DATA__
    
13. 01_010_007-thumb.jpg
    
14. 01_010_001.html
    
15. 01_010_002-thumb.jpg
    
16. 01_010_002.html
    
17. 01_010_001-thumb.jpg
    
18. 01_010_003.html
    
19. 01_010_008-thumb.jpg
    
20. 01_010_004.html
    
21. 01_010_001-thumb.jpg
    
22. 01_010_005.html
    
23. 01_010_006-thumb.jpg
    
24. 01_010_006.html
    

复制代码

perl a.pl
-----------------------------------------------
<page file="01_010_007.html">002</page>
<page file="01_010_002.html">003</page>
<page file="01_010_001.html">004</page>
<page file="01_010_008.html">005</page>
<page file="01_010_001.html">006</page>
<page file="01_010_006.html">007</page>


   

3009203267

回复 14# sunzhiguolu


    多谢指点！虽然printf的语法还是不太清楚

L_WC

回复 1# 3009203267

1. sub walk{
   
2.         my ($file,$count,$word,$code) = @_;
   
3.         my $fh;
   
4.         open $fh, $file or die "couldn't open $file: $!";
   
5.         while(<$fh>){
   
6.                 chomp;
   
7.                 s/^\s+//;
   
8.                 if(/$word/){
   
9.                         $code->($count,$_);
   
10.                         $count++;
    
11.                 }
    
12.         }
    
13.         close $fh;
    
14.         return 1;  
    
15. }
    
16. 
    
17. sub format{
    
18.         my ($count, $line) = @_;
    
19.         if($line =~ /(.+)-.+\.jpg/){
    
20.                 printf "<page file=\"$1.html\">%003d<\/page>\n", $count;
    
21.         }
    
22.        
    
23. }
    
24. 
    
25. # usage: walk(your file, start number, 'match word', \&format)
    
26. walk('your file',1, 'thumb', \&format);
    
27. 
    

复制代码

sunzhiguolu

回复 15# 3009203267
找了几个小例子, 看下就明白了.

%s a string
%d a signed integer, in decimal

printf '<% d>', 12; # prints "< 12>"
    printf '<%+d>', 12; # prints "<+12>"
    printf '<%6s>', 12; # prints "< 12>"
    printf '<%-6s>', 12; # prints "<12 >"
    printf '<%06s>', 12; # prints "<000012>"
    printf '<%#o>', 12; # prints "<014>"
    printf '<%#x>', 12; # prints "<0xc>"
    printf '<%#X>', 12; # prints "<0XC>"
    printf '<%#b>', 12; # prints "<0b1100>"
    printf '<%#B>', 12; # prints "<0B1100>"

   

3009203267

回复 17# sunzhiguolu


    十分感谢！

3009203267

回复 17# sunzhiguolu


    想再问您一下，如何判断－thumb之前的字符是数字还是英文字符呢，我分别用了\s和\d都没有区别开来
~ s/(\d+\K)-thumb.jpg/.html/g;
~ s/(\s+\K)-thumb.jpg/.html/g;
这两个的结果都是一样的，如果thumb之前有数字，又有英文字符，如何区分开来呢？

sunzhiguolu

3009203267 发表于 2016-07-04 16:43
回复 17# sunzhiguolu

这两个的结果都是一样的，如果thumb之前有数字，又有英文字符，如何区分开来呢？

贴出几条示例数据, 同时将你想要的结果贴出来. 这样可以看的更清楚些, 谢谢.