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

robinhappiness

回复 2# rubyish

不好意思，这位高手。
我运行你这个程序，输出结果始终是0。

yestreenstars

回复 10# robinhappiness
try:

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

复制代码

pitonas

1. #!/usr/bin/perl
   
2. my ( %h, $sum );
   
3. while (<DATA>) {
   
4.     my @a = split /,|@|\s+/;
   
5.     @a == 3
   
6.       ? ( $h{ $a[2] } = 1 )
   
7.       : $h{ $a[2] } && $h{ $a[2] }++ == 1 && $sum++;
   
8. }
   
9. 
   
10. print "The sum is $sum\n";
    
11. 
    
12. __DATA__
    
13. 5a17b,123,a
    
14. 5a17b,123,a
    
15. 5a17b,123,c
    
16. 5a17b,123,d
    
17. 5a17b,123,e
    
18. 5a17b,123,f
    
19. 5a17b,123,g
    
20. 5a17b,123,h
    
21. 2013-11-01 00:02:26,a@baidu.com
    
22. 2013-11-01 00:02:26,weer323eow@baidu.com
    
23. 2013-11-01 00:02:26,asd534ewwe@baidu.com
    
24. 2013-11-01 00:02:26,c@baidu.com
    
25. 2013-11-01 00:02:26,m323_nopqr@baidu.com
    
26. 2013-11-01 00:02:26,d@baidu.com
    
27. 2013-11-01 00:02:26,w5eweorgo@baidu.com
    
28. 2013-11-01 00:02:26,a@baidu.com
    
29. 2013-11-01 00:02:26,a@baidu.com
    
30. 2013-11-01 00:02:26,m323_nopqr@baidu.com
    

复制代码

robinhappiness

回复 12# yestreenstars

请教高手，我执行你的这个程序，最后得到aaa.txt中ID列和bbb.txt中每行第一个逗号和@之前的值相等的行数是4，
而实际上aaa.txt中的ID列有两个a值，所以应该只算一次，再加上ID列的c 和d，与bbb.txt中的,和@之间的值一样，所以符合条件的应该是3条记录。
请高手能帮忙看一下吗？
-------------------------------
    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

yestreenstars

回复 14# robinhappiness

1. $ head a b
   
2. ==> a <==
   
3. #aaaa,#bbbb,#ID
   
4. 5a17b,123,a
   
5. 5a17b,123,a
   
6. 5a17b,123,c
   
7. 5a17b,123,d
   
8. 5a17b,123,e
   
9. 5a17b,123,f
   
10. 5a17b,123,g
    
11. 5a17b,123,h
    
12. 
    
13. ==> b <==
    
14. 2013-11-01 00:02:26,a@baidu.com
    
15. 2013-11-01 00:02:26,weer323eow@baidu.com
    
16. 2013-11-01 00:02:26,asd534ewwe@baidu.com
    
17. 2013-11-01 00:02:26,c@baidu.com
    
18. 2013-11-01 00:02:26,m323_nopqr@baidu.com
    
19. 2013-11-01 00:02:26,d@baidu.com
    
20. 2013-11-01 00:02:26,w5eweorgo@baidu.com
    
21. 
    
22. $ cat p
    
23. #!perl
    
24. use warnings;
    
25. use strict;
    
26. use 5.010;
    
27. open F1, "a" or die;
    
28. open F2, "b" or die;
    
29. my ( %h1, %h2, $n );
    
30. map { chomp; $h1{(split /,/)[2]} ++ } <F1>;
    
31. map { my $t = (split /[,@]/)[1]; ! $h2{$t} ++ && $h1{$t} && $n ++ } <F2>;
    
32. print "$n$/";
    
33. 
    
34. $ ./p
    
35. 3
    
36. 
    
37. $

复制代码

robinhappiness

回复 15# yestreenstars


    我要发疯了，程序一模一样，只是我的perl版本是5.8.8
我运行的结果却是4，到底是哪块儿的问题呢？郁闷ing