#!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
s
e
q
;
p
r
i
n
t
O
U
T
"
seq; print OUT "
seq;printOUT"gene $len\n";
}
close IN;
close OUT;