in reply to How to avoid using array in concatenating string of multiple lines OR How To Read FASTA

#!/usr/bin/perl -w
use strict;

my $i = 0;
while(<DATA>){
    s/\s//g;
    if (/^>/) {
        print "\n" if $i;
        print ++$i, " : ";
        next;
    }
    chomp;
    print;
}
print "\n";

[download]

snowcrash
  • Comment on Re: How to avoid using array in concatenating string of multiple lines
  • Download Code

In Section Seekers of Perl Wisdom