答案一定隐藏在问题之中
反思从昨天到今天一来遇到的问题，让我苦思许久的问题，就在不经意之间得到了解决。
当我们遇到一个问题的时候，什么才是解决之道呢？
凡是我们遇到问题，既然是问题，一定有问题的构成要素，我们要做的就是把问题中的所有关键内容进行提取，或者不断的对问题进行各个方面的更加详细的搜集信息。让问题得到更加全面的描述。当描述的越全面的时候，我们的解就越来越明显。
所以我们在面对问题的时候沉静下来，思考问题，才是思考答案。
我们来看一下，前面我的博文在回对全部序列的时候，总是有一部分，不能够匹配。
这是个大的问题，但是对于这个问题的分析，
我们排序以后，发现sample1是完全可以回对的，没有问题，
以后的每一个sample 都有问题。但是后面处理剩余样品的每一段程序都是一样的。
每一个sample的结果都是在开始很长的一段无法匹配，但是到了后面又都能够回对上。
就这样，我们把问题 一个个的解析，就会发现问题出现在开始的部分。
第一部分是正常的，那一定是第一部分的改变，对于后面有了不同的影响。所以才会使后面的程序出现问题。
$z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $z=<DNA2>; $/="\n\n"; while(<DNA2>) { @mout = split/\n/,$_; @score= split/=/, $mout[0]; unless ($score[1]<90000) { @info1 = split/\s+/,$mout[1]; @info2 = split/\s+/,$mout[2]; @sequen1 = split// ,$info1[6]; @sequen2 = split// ,$info2[6]; for($cout1=$info1[2]+1;$cout1<$info1[3]+$info1[2]+1;$cout1++) { if(exists $position{$cout1}) { $cout=$cout1-$info1[2]-1; $position{$cout1}{sample2}=$sequen2[$cout]; } else { next; } } } }