摘要:
#!/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("
阅读全文
posted @ 2011-08-30 13:44
香格里拉\(^o^)/
阅读(901)
推荐(1)
编辑