摘要: 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... 阅读全文
posted @ 2017-12-15 22:07 LeleLiu 阅读(242) 评论(0) 推荐(0) 编辑