Parse a Fasta file with Perl

Radha Agarkar — Fri, 13 May 2016 05:00:18 -0500

#!/usr/bin/env perl

# Usage:  fastaRead.pl data.fa

use strict;
use warnings;

my $filename = $ARGV[0];
my  $sequence;
open my $fileH, "<", $filename or die "could not open $filename\n";
while (<$fileH>) {
    chomp;
    if ($_ =~ /^>/) {
        print "this line is a header: $_\n";
    }
    else {
        print "this line contains sequence data: $_\n";
        # Concatenate everything from the file into a single var
        $sequence .= $_;
    }
}
close $fileH;

BOL: Parse a Fasta file with Perl

Parse a Fasta file with Perl