Thank you for your response. I got script which calculates full sequence length in fasta file format. But I want add script which will calculate intron length, which is "intron length = full length - exon length". Exon length = Transcription length.
#!/usr/bin/perl
use strict;
use warnings;
my $fastaName = "example2.fasta";
open FASTA, $fastaName
or die "cannot open $fastaName\n";
my $sequence = "";
my $sequencelength;
while ( my $line = <FASTA> ) {
chomp($line);
if ( substr( $line, 0, 1 ) eq ">" ) {
if ( length($sequence) > 1 ) {
#Calculate sequence lenght
$sequencelength = length($sequence);
print "Sequence length: $sequencelength";
print "\n";
$sequence = "";
}
print "$line\n";
} else {
$sequence .= $line;
}
}
#Calculate sequence lenght for last sequence
$sequencelength = length($sequence);
#Print sequence lenght
print "Sequence length: $sequencelength";
print "\n";
|