Re: splitting fasta file into individual fasta files

Try something in this manner...

#!/usr/bin/perl

use strict;

my @file = do { local $/ = ">"; <DATA> };
print map { "$_\n" } @file;

__DATA__
>i:/13414 Ccl9 (88)/sequencing/13414_fasta.Contig1
TTTCTCCGGCCCCCTCCTCCCGCGGGGGAAAAAACCCGGGGAGCAGTCGG
GCAGGGGTTTTTTGGTTTTTTCAAAATAAAAAGGGGTGCCCGTTGGGGGGcd
GGGGGGGTGCAGGTTTCAACCCCCCCCCCCAAAGAAAAAAAAATTTTGGG
GAATTTTTGGGGGGCTCCACCAGTTTTCGGGGTTTTTGGGCCTTTTCAGA
AGGTAGGTTGGACGCGGATTGGGCAATAAACCACCCCGCTTCATCGGATA
ATTTTCCCCGGCCGAAAAGGGCCGCGGGGCCGGTGGGCGGCCTTGGGTTT
>i:/13414 Ccl9 (88)/sequencing/13414_fasta.Contig2
TAAACCCAAGGCCCCCCAGGTAAAAAAAAAACCGGCCAGGGGGGGGGGGG
TAAAAAAAACCAAGTGTCACCCAGGGTGGAGATCCCCGGAAAAGGAAAAG
GGGGGTTTTTTATTCGAAACGGGGAAAACTTTCACAAAATTTTGGAAGAA
TCCCCTTTAATGTTTTCTTTTCAAAAGGGGGTAAAAAAACCACCTTTAAA
AAGAAGTCTACCTTGGGAAAAAATAATTTTTGGGAAAATTTAAAAATTGA
[download]

Comment on Re: splitting fasta file into individual fasta files Download Code

Replies are listed 'Best First'.
Re^2: splitting fasta file into individual fasta files by citromatik (Curate) on May 07, 2009 at 09:02 UTC
Beware that, with your code, the first element of the array is a single ">" character, and the rest of elements (but the last) will have the ">" at the end citromatik	[reply]
Re^2: splitting fasta file into individual fasta files by lomSpace (Scribe) on May 07, 2009 at 16:30 UTC
Thank you bichonfrise74 for sharing your wisdom with a the neophyte!	[reply]