#! /usr/bin/perl
use strict;
use warnings;
use List::Util qw(sum min max);
use Getopt::Long;
use File::Basename;
# Parameter variables
my $file;
my $helpAsked;
my $outFile = "";
GetOptions(
"i=s" => \$file,
"h|help" => \$helpAsked,
"o|outputFile=s" => \$outFile,
);
if(defined($helpAsked)) {
prtUsage();
exit;
}
if(
fastq转fasta代码-基于perl
最新推荐文章于 2022-11-20 16:38:47 发布