关于文件字段匹配

拖拉机商人

file a:

a
dd
x

file b：


a
b
xx
dd
cc
l
c

问题：如果b文件里面出现了a文件的内容，则打印a文件出现的匹配内容。如果没有，则提示empty~
根据例子：希望得到的内容应该是：
a
dd

我不知道这个怎么用perl去写出来，求各位老大帮忙个段代码。

兰花仙子

拖拉机商人 发表于 2012-05-09 13:42
file a:

a

a文件不大的话，可以简单点用hash来识别。

1. use strict;
   
2. my %hash;
   
3. 
   
4. open my $fd,"aa.txt" or die $!;
   
5. while(<$fd>) {
   
6.     $hash{$_} ++;
   
7. }
   
8. 
   
9. open $fd,"bb.txt" or die $!;
   
10. while(<$fd>) {
    
11.     print if $hash{$_};
    
12. }
    
13. close $fd;

复制代码

拖拉机商人

谢谢，仙子。

午夜凋零

qqscj 发表于 2012-05-10 22:06
顶一下吧~ 很少见的好帖了

这种方法很常用吧，何来的“很少见的好贴”了？