use strict; # always... use Bio::SeqIO; my $bigfasta = "bigfasta.faa"; my $seqin = Bio::SeqIO->new(-file => $bigfasta, -format=>"fasta"); while ($inseq = $seqin->next_seq) { my $id = $inseq->display_id; my $outfile = "$id.fasta"; my $seqout = Bio::SeqIO->new(-file=>">$outfile", -format=>"fas +ta"); $seqout->write_seq($inseq); }
"with perl on my side"
"If you look at the code too long, the code also looks back at you"
In reply to Re: FASTA Splitter
by perliff
in thread FASTA Splitter
by perl_n00b
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |