perl 合并多个文件一例

?

这个问题是cu上有人提出的，感觉具有代表性，特地记录一下

比如a 文件 内容如下
a=11??b=http://www.baidu.com/baicd? ?c=xxx/baidu.apk
a=12??b=http://www.sina.com/xxx??c=xxx/sina.apk
a=13??b=http://www.qq.com/sdfsd??c=xxx/qq.akc
b 文件内容如下?
www.baidu.com,111
www.sina.com,112
c 文件内容如下
baidu.apk,123
sina.apk,12223
结果
11,http://www.baidu.com/baicd? ?,111,123
12,http://www.sina.com/xxx??,112,12223
13,http://www.qq.com/sdfsd??,qq.akc,

?

 
 

use?strict;?
  
  
use?warnings;?
  
  
use?Data::Dumper;?
  
  
my?(%hash1,%hash2);?
  
  
???open?FC,"c.txt"?or?die?"$!";?
  
  
????while(<FC>){?
  
  
??????chomp;???????????????????#把C文件映射为HASH表，用于替换?
  
  
????????/(S+),(S+)/;?
  
  
???????$hash2{$1}=$2;?
  
  
}?
  
  
????close?FC;?
  
  
open?FA,"a.txt"?or?die?"$!";?
  
  
while(<FA>){?
  
  
????my($num,$url,$domain,$apk1);?
  
  
????s/a=(d+)s+w+=(http://([^/]+)/S+)s+[^/]+/(S+)/?
  
  
????($num,$apk1)=?($1,$2,$3,$4);?
  
  
????/xeg;?
  
  
????$apk1?=~?s/($apk1)/$hash2{$1}??$hash2{$1}:"$1"/eg;?
  
  
???push?@{$hash1{$domain}},$num,$apk1;?
  
  
}?
  
  
open?FB,"b.txt"?or?die?"$!";?
  
  
?while(<FB>){?
  
  
????chomp;?
  
  
????/(S+),(S+)(?{push?@{$hash1{$1}},$2})/;?
  
  
?}?
  
  
?close?FB;?
  
  
for?(sort?keys%hash1){?
  
  
????my?@arr;?
  
  
????unless(defined$hash1{$_}[3]){?
  
  
???????push??@arr?,$hash1{$_}[0],$hash1{$_}[1],$hash1{$_}[2],",",;??
  
  
????}else{?
  
  
????push?@arr?,$hash1{$_}[3],$hash1{$_}[2];?
  
  
????}?
  
  
????print?join(",@arr)."n";?
  
  
}?
  
  
output
  
  
 
   

11,http://www.baidu.com/baicd,123
 
    
13,http://www.qq.com/sdfsd,
 
    
12,http://www.sina.com/xxx,12223