View Single Post
Old 02-24-2017, 08:15 AM   #3
jkbonfield
Senior Member
 
Location: Cambridge, UK

Join Date: Jul 2008
Posts: 146
Default

Not fast, but something like:

Code:
perl -e 'while(<>) {if (/^>/) {print;next}; chomp; print $_,"N" x (150-length($_)),"\n"}'  in.fasta
jkbonfield is offline   Reply With Quote