單置換檢驗，輪廓檢驗及其餘程序

#單置換檢驗生成矩陣 #!perl use warnings; use strict; my $n = $ARGV[1]; open FA, $ARGV[0] or die $!; while(<FA>) { chomp; my ($id, @tmp) = split; my @s = @tmp[0..$n-1]; my @e = @tmp[$n..$#tmp]; my $n = 0

>>阅读原文<<