perl求教：根据key值计算两个文本文件的匹配件数

robinhappiness

请教各位！

有两个文本文件：aaa.txt和bbb.txt
以aaa.txt中的ID列为Key值，和bbb.txt中的每行的逗号后面与@baidu.com之间的值相对比，
如果aaa.txt文件中ID列的值有重复的话，只算一条。
计算出aaa.txt中ID列的值与
bbb.txt中的逗号后面与@baidu.com前面的值相同的件数(行数)。

请教这个用perl如何实现？多谢！

aaa.txt
#aaaa,#bbbb,#ID
5a17b,123,a
5a17b,123,a
5a17b,123,c
5a17b,123,d
5a17b,123,e
5a17b,123,f
5a17b,123,g
5a17b,123,h

bbb.txt
2013-11-01 00:02:26,a@baidu.com
2013-11-01 00:02:26,weer323eow@baidu.com
2013-11-01 00:02:26,asd534ewwe@baidu.com
2013-11-01 00:02:26,c@baidu.com
2013-11-01 00:02:26,m323_nopqr@baidu.com
2013-11-01 00:02:26,d@baidu.com
2013-11-01 00:02:26,w5eweorgo@baidu.com

rubyish

1. open my $A, 'aaa';
   
2. open my $B, 'bbb';
   
3. my %A = map { /,(\w+)$/, 1 } <$A>;
   
4. my $sum;
   
5. 
   
6. while (<$B>) {
   
7.     my ($k) = /,(\w+)@/;
   
8.     $sum++ if $A{$k};
   
9. }
   
10. 
    
11. say $sum;
    
12. 
    

复制代码

yestreenstars

1. open F1, "a" or die;
   
2. open F2, "b" or die;
   
3. my ( %h, $n );
   
4. map { chomp; $h{(split /,/)[2]} ++ } <F1>;
   
5. map { $h{(split /[,@]/)[1]} && $n ++ } <F2>;
   
6. say $n;

复制代码

pitonas

各位前辈。我震惊了。

pitonas

各位前辈。我震惊了。

robinhappiness

回复 3# yestreenstars

谢谢回复。

我在linux环境下跑了一下程序，报出如下信息：
Can't call method "say" without a package or object reference at ./perltool.pl line 16, <$B> line 9.
-----------------------------------------------------------------
  1 #!/usr/bin/perl
  2
  3 use 5.8.8;
  4
  5
  6 open my $A, 'aaa.txt';
  7 open my $B, 'bbb.txt';
  8 my %A = map { /,(\w+)$/, 1 } <$A>;
  9 my $sum=0;
10
11 while (<$B>) {
12     my ($k) = /,(\w+)@/;
13     $sum++ if $A{$k};
14 }
15
16 say $sum;
---------------------------------------
请问是不是前面要加上use 哪个package?

yestreenstars

回复 6# robinhappiness
use 5.010;

   

robinhappiness

回复 7# yestreenstars


    Perl v5.10.0 required--this is only v5.8.8, stopped at ./perltool_yes.pl line 3.
BEGIN failed--compilation aborted at ./perltool_yes.pl line 3.

哭，好像版本不是v5.10.0
有什么好的办法请赐教！

yestreenstars

回复 8# robinhappiness
改成print就好啦，这么简单的问题，你有基础吗？

1. print "$sum$/";

复制代码

robinhappiness

回复 9# yestreenstars


    不好意思，刚接触perl，请各位高手多多指点。
请教一下，如果aaa.txt和bbb.txt有重复的ID存在的情况下，
比方说aaa.txt中的ID中有两个a时，与bbb.txt中@前面的值匹配时，只算匹配上一件的情况下，这个逻辑应该怎么改？谢谢。

也就是说不管aaa.txt或者bbb.txt中有多少重复的相同的ID值，重复的只按照一件来计算。