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

3009203267

现有的文件内容为
01_010_001-thumb.jpg       
01_010_001.html                       
01_010_002-thumb.jpg       
01_010_002.html                       
01_010_003-thumb.jpg       
01_010_003.html                       
01_010_004-thumb.jpg       
01_010_004.html                       
01_010_005-thumb.jpg       
01_010_005.html                       
01_010_006-thumb.jpg       
01_010_006.html               
...........
然后要求把带thumb的改为<page file="01_010_001.html">002</page>的形式，中间的数字要从001开始递增，现在自己写的脚本如下，
#！ /usr/bin/perl
open(FILE,"thumb-file.text");
open(XMLFile,">>nothumb.xml") or die "Can't write to the file";
@withthumb=<FILE>;
@withoutthumb=grep s/\-thumb\.jpg/\.html\">/,@withthumb;
$before="<page file=\"";
foreach $line (@withoutthumb){
        $line=$before.$line
}
print @withoutthumb;
close(FILE);
结果只能出现<page file="02_040_021.html">的格式，后面的递增不知如何做。并且在$line之后添加东西的话，会自动的添加到下一行，哪位高手指点一下应该如何做。

sunzhiguolu

回复 1# 3009203267
把你想要的结果贴出来瞧瞧, 需求没有看明白. 谢谢.

   

3009203267

从第二行是开始番号递增的表示成如下的样子
<page file="Zykadia_LaunchPad.html">001</page>
<page file="01_010_001.html">002</page>
<page file="01_010_002.html">003</page>
<page file="01_010_003.html">004</page>
<page file="01_010_004.html">005</page>
<page file="01_010_005.html">006</page>
<page file="01_010_006.html">007</page>
      :
      :
      :
<page file="04_080_009.html">156</page>
<page file="04_080_010.html">157</page>
<page file="04_080_011.html">158</page>
</index>
Add Comment Collapse

sunzhiguolu

只处理文本带有 thumb 行并输出, 不符合要求的行忽略?

3009203267

回复 4# sunzhiguolu


    对，就是这个意思，把带thumb的改成统一的模式，中间还有加递增的数字

sunzhiguolu

回复 5# 3009203267
请将你的示例数据与真实数据的格式保持一致. 比如: <page file="Zykadia_LaunchPad.html">001</page> 这一行单独的拿出来有啥用意吗?


   

3009203267

回复 6# sunzhiguolu


    那个也算是要求，第一行必须写成那个样子，不过那个先无视掉也行，主要是后面的002开始的递增写法不太会写

sunzhiguolu

回复 7# 3009203267
试下,

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

复制代码

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



   

3009203267

回复 8# sunzhiguolu


    嗯，成功了！和下面显示的一样，代码能解释一下吗？刚看perl，不太会呢还

sunzhiguolu

回复 9# 3009203267

while (<DATA>){
...
}

__DATA__
...
...
...

DATA 和平时使用的文件句柄是一个意思, 目的是每次进入 while 循环 都从标记 __DATA__ 后面读取一条数据记录.