答案一定隐藏在问题之中
反思从昨天到今天一来遇到的问题,让我苦思许久的问题,就在不经意之间得到了解决。
当我们遇到一个问题的时候,什么才是解决之道呢?
凡是我们遇到问题,既然是问题,一定有问题的构成要素,我们要做的就是把问题中的所有关键内容进行提取,或者不断的对问题进行各个方面的更加详细的搜集信息。让问题得到更加全面的描述。当描述的越全面的时候,我们的解就越来越明显。
所以我们在面对问题的时候沉静下来,思考问题,才是思考答案。
我们来看一下,前面我的博文在回对全部序列的时候,总是有一部分,不能够匹配。
这是个大的问题,但是对于这个问题的分析,
我们排序以后,发现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; } } } }