chen li wrote:
Each record starts with ">". I want to read each
record once at a time.I hear about a special variable
call $/ might do the job but not sure how to use it. I
wonder if anyone could help me out.
See `perldoc perlvar` and search for INPUT_RECORD_SEPARATOR.
Here is a simple script which might do:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
$/ = ">";
while( <DATA> ){
print Dumper \$_;
}
__END__
>gi|618748|dbj|D21618.1| MUS74F01 mouse embryonal carcinoma cell line
F9 Mus mus culus cDNA clone 74F01, mRNA sequence
GCTGCCTCGACGATCTTCGCTTGCNTCCTCGCTCGCTGTCCCGTTGTCCTAGCCCGCCGCCGCCCGCTGAGCTTGTCTTTACCCTGCTTGCAGACATGGCTGACATCAAGAACAACCCCGAATATTTCTTTCGTNANCC
GGTGTNATGGCGCTCGTCCGCAATGTTTTAGCGGCATGGGCCGCTATTGACAGCAAGAG
>gi|618749|dbj|D21619.1| MUS74F09 mouse embryonal carcinoma cell line
F9 Mus mus culus cDNA clone 74F09, mRNA sequence
GGCGNNNTGGCCTCGGGCGGCTGGACGTGCCCAGCGCCCGATTAACAAGATACATTTAATTGCTGTGTTTAACCAAATGTTTGAAGGCTGTGGGACTTTTTGAAATCATATGATCTCCTAAAAGCTGTTCACATTGTTC
ATTAA
--
Just my 0.00000002 million dollars worth,
--- Shawn
"Probability is now one. Any problems that are left are your own."
SS Heart of Gold, _The Hitchhiker's Guide to the Galaxy_
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is available at http://perldoc.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
