菜鸟请教哈希

zero_BX

大家好，文件A是一列有重复的ID:
A
11
11
22
33
11
文件B如下，均由tab分隔：
B
1 A
1 B
11 A
11 D
22 A

希望提取B文件含有A的ID以及对应的值：
11 A
11 D
22 A

请教大家用哈希如何解决？如果文件较大，把A读作数组然后遍历去匹配B文件的话感觉效率不高，求指教！谢谢啦

rubyish

perl abc.pl A B > C

1. #!/usr/bin/perl -w
   
2. 
   
3. my $B = pop;
   
4. my %A = map { $_ => chomp } <>;
   
5. @ARGV = $B;
   
6. 
   
7. while (<>) {
   
8.     my ($k) = split;
   
9.     print if $A{$k};
   
10. }
    
11. 
    
12. __DATA__
    
13. $_

复制代码