weixin_45214599的博客

perl实现动态规划全局比对 代码 代码 #!/usr/bin/perl use warnings; @data=(); while(<DATA>) { chomp $_; @array=split("\t",$_); push (@data,[@array]); } $seq_A=$data[0][1]; $seq_B=$data[1][1]; $Match=$data[2][1]; $Mismatch=$data[3][1]; $Gap_symbol=$data[4][1]; @se