BOL: Convert newline formated sequence into fasta format with perl

BioScripts
Abhimanyu Singh
Convert newline formated sequence into fasta format with perl

Convert newline formated sequence into fasta format with perl

By Abhimanyu Singh 2571 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";
}