Convert newline formated sequence into fasta format with perl
By Abhimanyu Singh 2353 days ago
use strict;
use warnings;
my $filename = $ARGV[0];
open(my $fh, '<:encoding(UTF-8)', $filename)
or die "Could not open file '$filename' $!";
while (my $row = <$fh>) {
chomp $row;
my $name= ">seq"."$.";
print "$name\n$row\n";
}
