From: Edward Wijaya <mailto:[EMAIL PROTECTED]> wrote:
: #---My Code --------------
: while (<>) {
: if (/^>/) {
: next;
: }
: chomp;
: $line .= $_;
: }
: push (@crseq, $line);
: print join("\n", @crseq), "\n";
How about:
my @crseq;
while ( <> ) {
next unless/^[ACGT]/;
chomp;
push @crseq, $_ . scalar <>;
}
print @crseq;
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
