求一perl程序

biophysics

有一文件，共A,B,C,D,E,F六列，列之间table隔开，如果E与F列上的值相同就输出A,B,C,D,E列相应的数据，perl如何做呢？
例如：
A                       B                          C                           D                                  E                                   F
1                       20                        30                         50                            APPLE                            EYE
3                       70                        90                         50                            BOOK                            APPLE         
7                       45.2                     70.5                      50.7                         EYE                                GOD      

输出结果应为：
A                       B                          C                           D                                  E   
1                       20                        30                         50                            APPLE
7                       45.2                     70.5                      50.7                         EYE


附件是真实数据。

ustbleetom

1. #!/usr/bin/perl
   
2. 
   
3. open FH, "<", "upload.txt";
   
4. 
   
5. while(<FH>){
   
6.         @fields = split /\t/;
   
7.         chomp $fields[5];
   
8.         if($fields[4] eq $fields[5]){
   
9.                 pop @fields;
   
10.                 print "@fields";
    
11.                 print "\n";
    
12.         }
    
13. }

复制代码

我去，原来不是这个意思。lz语文没学好。

rubyish

1. my ( @a, %h );
   
2. 
   
3. while (<>) {
   
4.     chomp;
   
5.     my @b = split /\t/;
   
6.     push @a, [ @b[ 0 .. 4 ] ];
   
7.     $h{ $b[5] } = 1 if $b[5];
   
8. }
   
9. 
   
10. for (@a) {
    
11.     print join "\t", @$_, "\n" if exists $h{ @$_[4] };
    
12. }
    

复制代码

biophysics

谢谢各位！ustbleetom 运行结果只一个数据，芙蓉女侠的无数据输出，rubyish 的程序可运行，结果正确，谢谢！