perl如何合并多行为一行？门外汉求助

cjx82630

我完全是门外汉，最近有一个文档要处理，如何用perl来做？谢谢了
一个文本文件里有多行如下，数量不定
Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead {display:none;}');};
Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#footer_win {display:none;}');};
Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mainad {display:none;}');};
Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mt5.recommend {display:none;}');};
Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggAD {display:none;}');};
Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggSideBox {display:none;}');};
…………
要合并为如下
Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead, #footer_win, .mainad, .mt5.recommend {display:none;}');};
Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggAD, .ggSideBox {display:none;}');};

x9x9

帮你写下吧：

1. use strict;
   
2. use warnings;
   
3. 
   
4. my %h;
   
5. while (<DATA>) {
   
6. next if /^\s*$/;
   
7. /amscript_cd\("(.*?)"\)\)\{__amscript_wc\('(.*?)\s+\{/;
   
8. $h{$1}.=$2.',';
   
9. }
   
10. 
    
11. foreach my $k (keys %h) {
    
12. chop (my $v=$h{$k});
    
13. printf "%s%s%s%s%s\n",q|Lif(__amscript_cd("|,$k,q|")){__amscript_wc('|,$v,q| {display:none;}');};|;
    
14. }
    
15. 
    
16. __END__
    
17. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead {display:none;}');};
    
18. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#footer_win {display:none;}');};
    
19. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mainad {display:none;}');};
    
20. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mt5.recommend {display:none;}');};
    
21. Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggAD {display:none;}');};
    
22. Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggSideBox {display:none;}');};

复制代码

rubyish

另一种写法:
~
~

1. my ( $a, $b, $c ) = <> =~ /(.*_wc\(')(.*)(\s\{.*)/;
   
2. print $a, $b;
   
3. my $tmp = $a;
   
4. while (<>) {
   
5.     ( $a, $b ) = /(.*_wc\(')(.*)(?:\s\{.*)/;
   
6.     print $tmp eq $a ? ", " . $b : $c . "\n" . $a . $b;
   
7.     $tmp = $a;
   
8. }
   
9. print $c;

复制代码

.
.
短一点的版本:
.

1. my ( $a, $b, $c, $d, $tmp ) = ('') x 5;
   
2. while (<>) {
   
3.     ( $a, $b, $c ) = /(.*_wc\(')(.*)(\s\{.*)/;
   
4.     print $tmp eq $a ? ", " . $b : $d . $a . $b;
   
5.     ( $tmp, $d ) = ( $a, $c . "\n" );
   
6. }
   
7. print $c;

复制代码

.
.

nixiaoweihunter

回复 2# x9x9


    q| 和 |是什么意思？

kk861123

我将一些非匹配字段用变量代替，但匹配时却匹配不到，只得使用s转转换一下（line10、line17），为什么我用的是单引但特殊字符在匹配的时候仍旧不行呢？

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my $head = q/Lif(__amscript_cd("/;
   
7. my $midd = q/")){__amscript_wc('/;
   
8. my $tail = q/ {display:none;}');};/;
   
9. 
   
10. s/([()"'])/\\$1/g for ($head,$midd,$tail);
    
11. my %line;
    
12. while (<DATA>) {
    
13.         if (/$head(\S+)$midd(\S+)$tail/) {
    
14.                 push @{ $line{$1} },$2;
    
15.         }
    
16. }
    
17. s/\\([()"'])/$1/g for ($head,$midd,$tail);
    
18. 
    
19. while (my($k,$v) = each %line) {
    
20.         print $head . $k . $midd . join(',',@{$v}) . $tail ."\n";
    
21. }
    
22. 
    
23. __DATA__
    
24. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead {display:none;}');};
    
25. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#footer_win {display:none;}');};
    
26. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mainad {display:none;}');};
    
27. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mt5.recommend {display:none;}');};
    
28. Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggAD {display:none;}');};
    
29. Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggSideBox {display:none;}');};
    

复制代码

x9x9

回复  x9x9


    q| 和 |是什么意思？
nixiaoweihunter 发表于 2011-12-01 16:40

相当于单引号，因为你要处理的文本里有单引号，为了避免Perl错误解析所以这么写。
当然你可以写成q@@，或是q##都可以，具体写成什么看你要处理的文本里最好没那个字符。

sunzhiguolu

回复 3# rubyish
大神, 这种写法是什么含义, 请指点, 谢谢...

my ( $a, $b, $c ) = <> =~ /(.*_wc\(')(.*)(\s\{.*)/;

   

sunzhiguolu

我也来一个,

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($ID, $tail) = ("", "");
   
6. while (<DATA>){
   
7.     my ($id, $item) = /([^']+')(\S+)/;
   
8.     $tail = $' if ($tail eq "");
   
9.     if ($ID eq  ""){
   
10.         $ID = $id;
    
11.         print $ID, $item;
    
12.         next;
    
13.     }
    
14.     $ID eq $id ? do {print ', ', $item; next} : print ($tail, ($ID = $id), $item);
    
15. }
    
16. 
    
17. print $tail;
    
18. 
    
19. __DATA__
    
20. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead {display:none;}');};
    
21. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#footer_win {display:none;}');};
    
22. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mainad {display:none;}');};
    
23. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mt5.recommend {display:none;}');};
    
24. Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggAD {display:none;}');};
    
25. Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggSideBox {display:none;}');};
    

复制代码

perl abc.pl
---------------------------------------------------------------------------------------------------------------------------------------------------------------------
Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead, #footer_win, .mainad, .mt5.recommend {display:none;}');};
Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggAD, .ggSideBox {display:none;}');};

sunzhiguolu

再来,

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($ID, $tail) = ("", "");
   
6. while (<DATA>){
   
7.     my ($id, $item) = /([^']+')(\S+)/;
   
8.     print $ID eq $id ? do {$tail ne "" ? ", $item" : ""} : "$tail$id$item";
   
9.     $tail = $' if ($tail eq "");
   
10.     $ID = $id;
    
11. }
    
12. print $tail;
    
13. 
    
14. __DATA__
    
15. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead {display:none;}');};
    
16. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#footer_win {display:none;}');};
    
17. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mainad {display:none;}');};
    
18. Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mt5.recommend {display:none;}');};
    
19. Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggAD {display:none;}');};
    
20. Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggSideBox {display:none;}');};
    

复制代码

perl abc.pl
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead, #footer_win, .mainad, .mt5.recommend {display:none;}');};
Lif(__amscript_cd("gougou.com")){__amscript_wc('.ggAD, .ggSideBox {display:none;}');};