Re: Concatenating line into array problem

[Edward Wijaya]

On Thu, 10 Jun 2004 21:19:17 -0700, Tim Johnson <[EMAIL PROTECTED]> 
wrote:
################################
while (<>) {
     if (/^>/) {
         push (@crseq, $line);
         next;
     }
     chomp;
     $line .= $_;
}
shift @crseq;
print join("\n", @crseq), "\n";
################################
Thanks so much for your reply Tim.
But the outoput it gives is
CAATATGCGAGGGACCTACATGTTGACATGACAATGAATTCTATTGAAAAAA
instead of:
CAATATGCGAGGGACCTACATGTTGACATGACAATGAATTCTATTGAAAAAA
"and"
ATAATTATTCCTGTTTCTTTAACCTGGTAAAAAAAAGTACAAACACTTAAGC
So it missed out second '>' part of the fasta file.
Any clue?
Thanks again before hand.
Regards
Edward WIJAYA
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>