摘要： #!/usr/bin/perl -wuse strict;use Getopt::Std;sub usage{ print "\tUsage: ", $0, " options\n", "\toptions:\n", "\t\t-i <str>\tthe input fa file\n", "\t\t-o <str>\tthe ouput file prefix\n"; exit(1);}use vars qw($opt_i $opt_o );getopts(" 阅读全文