Re: Concatenating line into array problem

[Edward Wijaya]

    How about:

my @crseq;
while ( <> ) {
    next unless/^[ACGT]/;
    chomp;
    push @crseq, $_ . scalar <>;
}
print @crseq;

Hi Charles,

Thanks for your reply.

Your code works for my example in email, but not the file
with more lines, (please see attached file).

So sorry if I didn't give precise example.

Regards,
Edward WIJAYA

YAP_up800.fasta
Description: Binary data

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>