类似key查找value的perl程序，附自己程序和数据，有点问题，谢谢！

54red

有两个输入一个输出  运行命令是  perl gene_change.pl data.txt find.txt 数据.rar (2.89 KB, 下载次数: 10)

2015-08-06 15:39 上传

点击文件名下载附件

明明应该是替换了15次，但是我这个总是替换不全，先谢谢大家帮我看一下。   （编的很拖沓，十分欢迎提改进意见）
还有个小问题  data.txt  两列中都有重复  所以我不会用hash
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use File::Basename;

my $gene=shift;
my $gene_new=shift;
my $out= shift;
open (IN,$gene);
open (IN1,"$gene_new");
my @haha=<IN1>;
open(OUT,">$out");
my $n=0;

foreach (@haha)
{
        chomp;
        my $gene=$_;
        my $m=1;
       while (<IN>) {
             chomp;
         my $line = $_;
         my @data = split/\t/,$line;
         if($gene eq $data[0]){
                     print OUT "$gene\t$data[1]\n";$n++;print "change\:\t$n\n";
                         $m++;last;
                                           }
           }         
              if($m==1){print OUT "$gene\tNA\n";
               

      
     }
        
}

xiaoxingan99

foreach (@haha)
{
          while (<IN>) {


这个循环结构的话，IN只能循环一次，也就是haha的第一个元素运行的那次，IN里面的会执行

54red

好像不是，我按照那个数据做，一共替换了7次。回复 2# xiaoxingan99


   

rubyish

shishi:
perl abc.pl find.txt data.txt > out.txt

1. #!/usr/bin/perl
   
2. use 5.022;
   
3. 
   
4. open my $FIND, shift;
   
5. open my $DATA, shift;
   
6. my %data = map split, <$DATA>;
   
7. 
   
8. while (<$FIND>) {
   
9.     chomp;
   
10.     say $_ , "\t", $data{$_} || 'NA';
    
11. }
    

复制代码

rubyish

回复 3# 54red

xiaoxingan99: shi duide

这个循环结构的话，IN只能循环一次，也就是haha的第一个元素运行的那次

   

MMMIX

回复 5# rubyish


    那 while 循环里面还有个 last 呢。

54red

多谢，代码很好用，看了你的再看我的真的是没法看，继续学！回复 5# rubyish


   

rubyish

回复 6# MMMIX


A! mei kandao nage last
3 Q ~

rubyish

回复 7# 54red

Yong zhege  perltidy paiban nide ugly code ~
http://search.cpan.org/~shancock/Perl-Tidy-20140711/bin/perltidy
   

54red

哈哈，谢谢，推荐一个这么好的整理工具，有空看看怎么用的！回复 9# rubyish