BOL

perl -e '$/="\n>"; while (<>) { s/>//g; my ($id, $seq) = split /\n/; print ">$_" if length $seq; }' < all_p_ctg.fasta > all_p_ctg_corrected.fasta #Convert #Fasta #Zero