|
Posted by Ela on June 10, 2008, 3:10 pm
Please log in for more thread options
$pattern2 = $aref2->[$cog3i];
$pattern2 =~ s/[\t\n^M]//g;
$pattern1 = $aref1->[$orfi];
$pattern1 =~ s/[\t\n^M]//g;
if ($pattern1 !~ /$pattern2/) {
print "ORF: AAAA$pattern1\n";
print "pattern COG3i start: AAAA$pattern2\n";
<STDIN>;
}
| 
XML Sitemap