BOL: Convert newline formated sequence into fasta format with perl

X

BOL wishing you a very and Happy New year

Alternative content

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

Convert newline formated sequence into fasta format with perl

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