<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>Buena tarde Mongers!</p>
<p>Creo que anoche no íbamos tan mal, está claro sólo necesitábamos
birra y hamburguesa para sacar adelante el problema:<br>
</p>
<p><br>
</p>
<p><tt>#!/usr/bin/env perl</tt><tt><br>
</tt><tt>use strict;</tt><tt><br>
</tt><tt><br>
</tt><tt>my $dna =
q/GGCACGAGATATTTGCTACTACCACCAAGATCTGTGCTAGTGGCGGCTCCATGTCGGCTTACGCCAGGCACTTCAACGCACACCACCAGACCCTCCTACTCGCTGGCGTCTCAAAGGGCAGACGTGCGTGCGCGCTGCCCCACTTGTACGCCAGCGGTAATGTATAGGCAAACGACTTAAGCGCCATCCATTTTAAGGGCTAATTGCTTCGGCAGGTGAGTTGTTACACACTCCTTAGCGGATGACAACTTCCATGTCCACCGTCCTGCTGTCTGTAGCAATCAACACCTTTCATGGTATCTATGATGCGTCGTTTATTTAGGCGCCGTAACATTACGTTTGGTTCATCCCACAGCACCAGTTCTGCTTACCAAAACTTGGCCCACTAAGCACACAGATATCTTCTACGCCGCTTGTGGATGGCACACCCTGACAGGGGGGCGACCCGGCGTCAACGTTGCAACAGCATCATGCAAGAATGCTATGGTACGTACCCATTTATAGTTTGAGAATAGGTTAAGATCATTTC/;</tt><tt><br>
</tt><tt><br>
</tt><tt>for($dna=~m/GAT ( (...)*? ) TAG/gx) {</tt><tt><br>
</tt><tt> print "grp: $_\n ";</tt><tt><br>
</tt><tt> my @split = $_=~m/(...)/g;</tt><tt><br>
</tt><tt> print join(" ", @split), "\n";</tt><tt><br>
</tt><tt>}</tt></p>
<p><tt><br>
</tt></p>
<p>La condición <tt>(...)*?</tt> es necesaria para asegurarnos que
tendremos múltiplos de tres caracteres entre el tag (er, codon)
inicial y final, y la segunda regexp parte la secuencia encontrada
en grupos de tres caracteres.</p>
<p>Por cierto he codificado el programa con "use DNA;" y es
acojonante. Molaría que Alessandra nos ayude a codificar el
resultado en levadura... <br>
</p>
<p>Saludos,</p>
<p>-Javier Arturo Rodríguez<br>
</p>
</body>
</html>