使用perl实现多个文件合并
请教一下， 我现在要使用perl实现多个文件合并， 哪位高手能指点一下， 大体是这样的：
比如a 文件 内容如下
a=11 b=http://www.baidu.com/1q2.XXXXX/XXX c=http://www.baidu.com/msoft/sec/tmp/baidu.apk
a=12 b=http://www.sina.com
/xxdxx/dsfds c=http://www.sina.com/msoft/sec/tmp/sina.apk
a=13 b=http://www.qq.com/sdfsdfsdf/sdfsdfs c=http://www.qq.com/qq.akc
b 文件内容如下
http://www.baidu.com/*,111
http://www.sina.com/*,112
c 文件内容如下
www.baidu.com,baidu.apk,123
www.sina.com,sina.apk,12223
结果
11,http://www.baidu.com/1q2.XXXXX/XXX,http://www.baidu.com/msoft/sec/tmp/baidu.apk,111,12312,http://www.sina.com//xxdxx/dsfds,http://www.sina.com/msoft/sec/tmp/sina.apk,112,1222313,http://www.qq.com/sdfsdfsdf/sdfsdfs,http://www.qq.com/msoft/sec/tmp/baidu.apk,,
希望有高手留下代码 ，在下感激不尽。 perl
[解决办法]
#!/usr/bin/perl
my %bhash;
my %chash;
sub read_file_to_hash {
my ($name, $hash, $pat) = @_;
open my $fd, '<', $name or die $!;
while (<$fd>) {
chomp;
my ($x, $y, $z) = split /$pat/;
if ($z) {
$hash->{$y} = $z;
}
else {
$hash->{$x} = $y;
}
}
close $fd;
}
read_file_to_hash('b.txt', \%bhash, '\*,');
read_file_to_hash('c.txt', \%chash, ',');
sub do_process {
my $str = shift @_;
my ($x, $y, $z) = $str =~ /=(\S+)/g;
my ($url, $apk) = ($y, $z);
$url =~ s
[解决办法]
(http://.*?/).*
[解决办法]
$1
[解决办法]
;
$apk =~ s
[解决办法]
.*/
[解决办法]
;
print join(',', ($x, $y, $z), $bhash{$url}, $chash{$apk}), "\n";
}
open $rfd, '<', 'a.txt' or die $!;
my $lines;
while (<$rfd>) {
chomp;
s/^\s+//g;
if (not /^$/) {
$lines .= $_;
next;
}
do_process($lines);
$lines = '';
}
if ($lines =~ /^.+$/) {
do_process($lines);
}
close $rfd;
11,http://www.baidu.com/1q2.XXXXX/XXX,http://www.baidu.com/msoft/sec/tmp/baidu.apk,111,123
12,http://www.sina.com/xxdxx/dsfds,http://www.sina.com/msoft/sec/tmp/sina.apk,112,12223
13,http://www.qq.com/sdfsdfsdf/sdfsdfs,http://www.qq.com/qq.ak,,
#!/usr/bin/perl
my %bhash;
my %chash;
sub do_process {
my $str = shift @_;
my ($x, $y, $z) = $str =~ /=(\S+)/g;
my ($url, $apk) = ($y, $z);
$url =~ s
[解决办法]
http://(.*?)/.*
[解决办法]
$1
[解决办法]
;
$apk =~ s
[解决办法]
.*/
[解决办法]
;
print join(',', ($x, $y, $z), $bhash{$url}, $chash{$apk}), "\n";
}
open my $fd, '<', 'b.txt' or die $!;
while (<$fd>) {
chomp;
my ($x, $y) = split /,/;
$x =~ s
[解决办法]
http://(.*?)/.*
[解决办法]
$1
[解决办法]
;
$bhash{$x} = $y;
}
close $fd;
open my $fd, '<', 'c.txt' or die $!;
while (<$fd>) {
chomp;
my ($x, $y, $z) = split /,/;
$chash{$y} = $z;
}
close $fd;
open my $fd, '<', 'a.txt' or die $!;
my $lines;
while (<$fd>) {
s/^\s+//g;
s/\s+$//g;
if (not /^$/) {
$lines .= $_;
next;
}
do_process($lines);
$lines = '';
}
if ($lines =~ /^.+$/) {
do_process($lines);
}
close $fd;
