求助，预计while循环很多次的程序，实际循环一遍就自动退出了

无双六

作用如下

a，b，c三个文件，从a文件读取匹配字段，将b文件中匹配该字段的行输出到c文件。

可是现在这段代码运行了一个循环就停掉了，求原因

1. #!/usr/bin/perl
   
2. use utf8;
   
3. use strict;
   
4. use autodie;
   
5. 
   
6. open my $gene_fh, '<', @ARGV[0];
   
7. open my $target_fh, '<', @ARGV[1];
   
8. open my $output_fh, '>>', @ARGV[2];
   
9. 
   
10. while (<$gene_fh>) {
    
11.     if (/(?<gene_name>gene\d+)/i) {
    
12.     &filter($+{gene_name});
    
13.     }
    
14. }
    
15. 
    
16. sub filter {
    
17.     while (<$target_fh>) {
    
18.     if (/($_[0])/) {
    
19.         print $output_fh $_;
    
20.     }
    
21.     }
    
22. }

复制代码

MMMIX

输入文件是啥?

另外，filter 的逻辑有问题，最后少一个 seek。当然，目前是实现是相当低效的，不过这就是另外一个问题了。

RE_HASH

Code deleted.

无双六

回复 2# MMMIX


   thank you，已经解决了

无双六

回复 3# RE_HASH


    谢谢 ，不过本人这个实在是太菜了，部分代码看不懂
不过问题已经解决了

sunzhiguolu

回复 5# 无双六
估计应该是句柄的问题.