摘要： use strict; open DATA , "check_result_50.txt"; open LOG , ">log.txt"; my @all; my @all_array; @all = ; foreach (@all){ push @all_array, [split(/ /, $_)] } #删除重复元素, 提取种群数和位点数 sub uniq{ m... 阅读全文