Hi Shawn,
I use the your code to do the job:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $filename='sequence.fasta';
open (DATA,$filename) or die;
{local $/ = '>';
while( <DATA> ){
print Dumper \$_;
}
}
exit;
And I get the following output:
$VAR1 = \'>';
$VAR1 = \'gi|618748|dbj|D21618.1| MUS74F01 mouse
embryonal carcinoma cell line F9 Mus musculus cDNA
clone 74F01, mRNA sequence
GCTGCCTCGACGATCTTCGCTTGCNTCCTCGCTCGCTGTCCCGTTGTCCTAGCCCGCCGCCGCCCGCTGAGCTTGTCTTT
ACCCTGCTTGCAGACATGGCTGACATCAAGAACAACCCCGAATATTTCTTTCGTNANCCGGTGTNATGGCGCTCGTCCGC
AATGTTTTAGCGGCATGGGCCGCTATTGACAGCAAGAG
>';
$VAR1 = \'gi|618749|dbj|D21619.1| MUS74F09 mouse
embryonal carcinoma cell line F9 Mus musculus cDNA
clone 74F09, mRNA sequence
GGCGNNNTGGCCTCGGGCGGCTGGACGTGCCCAGCGCCCGATTAACAAGATACATTTAATTGCTGTGTTTAACCAAATGT
TTGAAGGCTGTGGGACTTTTTGAAATCATATGATCTCCTAAAAGCTGTTCACATTGTTCATTAA
';
Is it possible to remove ($VAR1 = \'>';), ($VAR1 =
\'), (>';), and (';) from the output direclty or
several lines containing regular expression needed to
do the job?
Thanks,
Li
> 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
>
>
__________________________________________
Yahoo! DSL Something to write home about.
Just $16.99/mo. or less.
dsl.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
