iTOL与netsurfp前期处理程序

#!perl use warnings; use strict; use List::Util qw(max); my (%hash); open RSA, $ARGV[0] or die $!; open SS, "> $ARGV[1].ss" or die $!; while(<RSA>) { chomp; next if(/^#/); my @tmp = split; my $ma

>>阅读原文<<