Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: File::Wrap and Fasta format

by aging acolyte (Pilgrim)
on Mar 13, 2003 at 12:21 UTC ( [id://242666] : note . print w/replies, xml ) Need Help??

in reply to File::Wrap and Fasta format

I have always liked a simple regex to format for fasta

for 80 nt per line:

$seq =~ s/([^\n]{80}|[^\n]{1,79}$)/$1\n/g; print $out ">$description\n$seq"; close $out;