如果第一行第一列相同，打印第一行，第二行，第三行，第四行。

yueli7

各位大侠，

如果第一行第一列相同，打印第一行，第二行，第三行，第四行。

01.txt
>SR1.2

02.txt
>SR1.1 HWI-ST
ATGCTGCT
TCGTCGAT
CTGATCAGCTAC
>SR1.2 HWI-ST0
TTTTGCTGCT
TCGTTGGG
CTTTATCAGCTAC
>SR1.3 HWI-ST0787
GGGGGCTGCT
AATCGTCGAT
AACTGATCAGCTAC

结果：
>SR1.2 HWI-ST0
TTTTGCTGCT
TCGTTGGG
CTTTATCAGCTAC

自己遍的程序，错在哪里？

open(IN1,"01.txt") || die "Cannot open this file";

@lines1 = <IN1>;

open(IN2,"02.txt") || die "Cannot open this file";

@lines2 = <IN2>;


open(OUT,">out01") || die "Cannot open this file";

for $item1(@lines1){

        chomp $item1;


        #print OUT $item1,"\t";

@tmp1=split(/\s+/, $item1);


for $item2(@lines2){

        chomp $item2;

@tmp2=split(/\s+/, $item2);

                if ($tmp1[0] eq $tmp2[0]){

                        print OUT $lines2[$i],"\n",$lines2[$i+1],$lines2[$i+2],$lines2[$i+3];

                        last;       

                }

        $i++
}


print OUT "\n";


}


close(IN1);
close(IN2);

close(OUT);


先谢谢了！

donalds2008

1. print OUT $lines2[$i],"\n",$lines2[$i+1],$lines2[$i+2],$lines2[$i+3];

复制代码

$i从何而来？

donalds2008

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. open(IN1,"01.txt") || die "Cannot open this file";
   
5. my @lines1 = <IN1>;
   
6. open(IN2,"02.txt") || die "Cannot open this file";
   
7. my @lines2 = <IN2>;
   
8. my $i=0;
   
9. open(OUT,">out01") || die "Cannot open this file";
   
10. for my  $item1(@lines1){
    
11.         chomp $item1;
    
12.         my@tmp1=split(/\s+/, $item1);
    
13. for my  $item2(@lines2){
    
14.         chomp $item2;
    
15.         my @tmp2=split(/\s+/, $item2);
    
16.                 if ($tmp1[0] eq $tmp2[0]){
    
17.                         print OUT $lines2[$i],"\n",$lines2[$i+1],$lines2[$i+2],$lines2[$i+3];
    
18.                         last;
    
19.                 }
    
20.         $i++;
    
21. }
    
22. print OUT "\n";
    
23. 
    
24. }
    
25. 
    
26. close(IN1);
    
27. close(IN2);
    
28. close(OUT);
    
29. 
    
30. 
    
31. cat out01
    
32. >SR1.2 HWI-ST0
    
33. TTTTGCTGCT
    
34. TCGTTGGG
    
35. CTTTATCAGCTAC
    

复制代码

yueli7

谢谢donalds2008快速的回答！

十分感谢！

如果01.txt变成;
01.txt
>SR1.2
>SR1.3

这个程序该如何改？