Foro - Perl en Español

Publicado: **2015-06-12 18:34 @815**

Buenas. Dada una secuencia he buscado si posee el codón ATG de inicio con los códigos:

#!/usr/bin/perl

$ secuencia = AAAATGCGGTTATGCCCATGGGGTG;
$ s = 'ATG';

$posicon = 0;
$n = 0;
$n++ while $posicion = 1 + index($secuencia, $s, $posicion);

print "SE HAN ENCONTRADO $n VECES ESTE STRING ($s) EN LA SECUENCIA.\n";

exit;

Y me muestra el número de veces que tengo la secuencia ATG.

A continuación quisiera que me mostrase en el lugar que está esa secuencia. ¿Cómo podría realizarlo?

Muchas gracias.

Publicado: **2015-06-12 18:44 @822**

Basta con agregar un print() dentro del bucle while():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
$secuencia = 'AAAATGCGGTTATGCCCATGGGGTG';
$s         = 'ATG';
 
$posicion = 0;
$n = 0;
 
while ($posicion = 1 + index($secuencia, $s, $posicion)) {
    $n++;
    print "Se ha encontrado en la posición $posición\n";      # informa de la posición, basada en '1'
}
print "SE HAN ENCONTRADO $n VECES LA SECUENCIA ($s) EN LA SECUENCIA.\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Mostrar posición de codón

Mostrar posición de codón

Re: Mostrar posición de codón