getFaLen.pl

#!perl

###This script is used to get length information for each sequence in a fasta file

use Getopt::Std;
getopts “i⭕️”;

$input = $opt_i;
$output = $opt_o;

if ((!defined $opt_i) || (!defined KaTeX parse error: Undefined control sequence: \n at position 307: …***************\̲n̲"; } open(OUT, …output") or die"";
open(IN, $input) or die"";
KaTeX parse error: Expected '}', got 'EOF' at end of input: …N>){ chomp; (gene,KaTeX parse error: Undefined control sequence: \n at position 15: seq) = split(/\̲n̲/,_,2);
$gene =~ s/\s+.*//g;
$seq =~ s/\s+//g;
$len = length $seq;printOUT"$gene $len\n";
}
close IN;
close OUT;