新人求解

codeternity

各位大侠，最近刚开始学习perl，现遇到一个问题，关于文件合并的，虽然论坛里有好多这种问题，但我还是想求解一下自己的问题，拜托了……
我有两个文本，第一个为new1.txt：
SH    AA    XX
GZ    BB    YY
SZ    CC    ZZ
BJ     DD   WW
第二个为new2.txt
TJ    BB     OO
HN   CC     PP
HB   EE     QQ
HN   FF      RR
我想根据第二列中两个文本中共同的挑出来，输出到新的文本new.txt里，结果如下：
GZ    BB    YY
SZ    CC    ZZ
TJ    BB     OO
HN   CC     PP
不知道该咋实现，求各位大神不吝赐教

yinyuemi

回复 1# codeternity


    perl -anle 'print $hash{$F[1]}->[1],"\n",$_ if ++$hash{$F[1]}->[0] == 2; $hash{$F[1]}->[1]=$_;' file1 file2

codeternity

回复 2# yinyuemi
大神，这个有点看不懂……


   

stanley_tam

第一感觉用shell快点。。。{:3_188:}

1. egrep -f new1.txt new2.txt > new.txt

复制代码

codeternity

回复 4# stanley_tam
大侠，我这个perl还没搞明白，您这个shell我恐怕又得……


   

Cu_fans

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hash;
   
6. open FH1, "<", "new1.txt" or die $!;
   
7. open FH2, "<", "new2.txt" or die $!;
   
8. while (<FH1>)
   
9. {
   
10.         chomp;
    
11.         my $key = (split /\s+/)[1];
    
12.         $hash{$key} = $_;
    
13. }
    
14. 
    
15. while (<FH2>)
    
16. {
    
17.         chomp;
    
18.         my $key = (split /\s+/)[1];
    
19.         if (exists $hash{$key})
    
20.         {
    
21.                 print qq/$hash{$key}\n/;
    
22.                 print qq/$_\n/;
    
23.         }
    
24. }
    
25. 
    
26. close FH2;
    
27. close FH1;
    

复制代码

这个应该好理解了吧

cinanine

1. perl -ape '$c{$F[1]}?($a.=$c{$F[1]})&&($b.=$_):($c{$F[1]}=$_)}{$_=$a.$b' new1.txt new2.txt > new.txt

复制代码

yinyuemi

回复 3# codeternity

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my %hash;
   
6. 
   
7. 
   
8. open(f1,"file1") or die "$!\n";
   
9. open(f2,"file2") or die "$!\n";
   
10. 
    
11. while(<f1>){
    
12.     my $data = split;
    
13.     $hash{$data[1]}->[0]++;     
    
14.     $hash{$data[1]}->[1] = $_;  
    
15. }
    
16. 
    
17. # the value of %hash is the ref of array, [counts of column2, data of one line];
    
18. 
    
19. while(<f2>){
    
20.     $hash{$data[1]}->[0]++;
    
21.     if($hash{$data[1]} == 2){
    
22.         print $hash{$data[1]}->[1],$_;
    
23.     }
    
24. }
    
25. 
    
26. close(f1);
    
27. close(f2);

复制代码

神之战戟

回复 7# cinanine


这个是不是写了一部分啊

grshrd49

回复 7# cinanine


    灌个水!
每次看到你的头像我就想歪了!!!!!