This might be closer to what you want. Just push the line onto the
array every time you come to the '>' character. You'll get one empty
line at the beginning, that's why I put the shift line in.
################################
while (<>) {
if (/^>/) {
push (@crseq, $line);
next;
}
chomp;
$line .= $_;
}
shift @crseq;
print join("\n", @crseq), "\n";
################################
-----Original Message-----
From: Edward Wijaya [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 10, 2004 9:09 PM
To: [EMAIL PROTECTED]
Subject: Concatenating line into array problem
<snip>
What I would like to do is to concatenate the line below > into one
single string.
Such as the output would be:
CAATATGCGAGGGACCTACATGTTGAGCATGACAATGAATTCTATTGAAAAA
ATAATTATTCCTGTTTCTTTAACCTGGTAAAAAAAAGTACAAACACTTAAGC
<snip>
#---My Code --------------
while (<>) {
if (/^>/) {
next;
}
chomp;
$line .= $_;
}
push (@crseq, $line);
print join("\n", @crseq), "\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
