求帮忙 ！！！！！

a475772910

A。txt
789  89  555  66
852  78  777  852
855  75  66    77
852  99  525  22
859  88  777  23
962  74  23    100
在第三列和第四列  只要是存在相同的数字 ，那么这些数字所在的行就会被留下。

即可得到B.TXT
789  89  555  66
855  75  66    77
859  88  777  23
962  74  23    100


求各位大神帮忙 谢谢！！！！！

rubyish

1. #!/usr/bin/perl
   
2. my ( %c, %d );
   
3. print map { $d{ $_->[1] } || $c{ $_->[2] } ? $_->[0] : () }
   
4.   map { my @s = split; $c{ $s[2] }++; $d{ $s[3] }++; [ $_, @s[ 2, 3 ] ] }
   
5.   <DATA>;
   
6. 
   
7. __DATA__
   
8. 789  89  555  66
   
9. 852  78  777  852
   
10. 855  75  66    77
    
11. 852  99  525  22
    
12. 859  88  777  23
    
13. 962  74  23    100

复制代码