请教这个功能perl如何实现？

bioinfor

有A,B,C三列数据，B和C列行数相同，A比B列行数有可能多也有可能少，现打算实现如果A与B相同则输出相应的A和C，而没有对应值的则输出为none，如下例：
A列             B列             C列
BOOK          APPLE             -6
BEE             BLUE             -20
BOOK           GOOD            -4
APPLE          BOOK            -9
YES             YES               -5
                   NO                -54

结果应该输出
BOOK          -9
BEE             none
BOOK          -9
APPLE          -6
YES             -5
                          

附件是真实数据。

kk861123

回复 1# bioinfor

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my (@index,%map_of);
   
7. while (<DATA>) {
   
8.     chomp;
   
9.     if (/^([^\t]*)\t([^\t]*)\t([^\t]*)$/) {
   
10.         push @index,$1 if $1;
    
11.         $map_of{$2} = $3;
    
12.     }
    
13. }
    
14. 
    
15. for (@index) {
    
16.     my $line = "$_\t";
    
17.     $line   .= exists $map_of{$_}
    
18.              ? $map_of{$_}
    
19.              : "none";
    
20.     print $line,"\n";
    
21. }
    
22. 
    
23. __DATA__
    
24. BOOK        APPLE        -6
    
25. BEE        BLUE        -20
    
26. BOOK        GOOD        -4
    
27. APPLE        BOOK        -9
    
28. YES        YES        -5
    
29.         NO        -54

复制代码

xfsunny

回复 1# bioinfor

我写了个，可以实现你说的功能，见附件。有问题请回复哦~ SearchData.zip (18.96 KB, 下载次数: 18)

2012-05-21 16:45 上传

点击文件名下载附件
Solution

   

perlshell

kk861123 发表于 2012-05-21 16:14
回复 1# bioinfor

HI, 我权限不够没法回你私信，我加你的QQ了，关于Perl shell， 请加QQ！

bioinfor

回复 2# kk861123

这个程序我运行不了不知怎么回事，没有安装那个模块吗？


   

bioinfor

回复 3# xfsunny


程序我试了，A列数据量少的时候没有问题，但数据量大就有问题。

如结果中
JUND    -45.15120897
其余是
JUND   none

正确应该都是JUND    -45.15120897




数据量大的文件见附件.
   

greencow

回复 6# bioinfor


    哥们，做bioinformatics还是需要认真学点Perl。这个问题不难的，不妨自己试试

kk861123

bioinfor 发表于 2012-05-24 22:37
回复 2# kk861123

这个程序我运行不了不知怎么回事，没有安装那个模块吗？

那你把模块去了吧，调试时候用的