Foro - Perl en Español

Publicado: **2010-04-29 10:59 @499**

Hola,

Estoy haciendo un script para contar la aparición de una lista de caracteres sobre uno o más bloques más grandes.

A continuación coloco un fragmento del archivo que contiene mi lista de caracteres a buscar:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

AA

AT

AG

AC

TA

TT

TC

TG

GA

GT

GG

GC

CA

CT

CG

CC

AAAA

AAAT

AAAC

AAAG

TTTA

TTTT

TTTC

TTTGColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y este es un fragmento del bloque sobre el cual se realiza la búsqueda (pueden ser varios; por eso utilizo el bucle de abajo para leerlo):

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ATGGAGTCTTTTAGAGAGTTTATCCAACAATTCAAAAAAAATAAGGCAGCGGTCGTTGGGGCTTGGATTGTGCT.......Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Para realizar esto he escrito el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#! /usr/bin/perl 
 
my $file="../seq_pba.fasta"; #secuencias sobre las cuales se realiza la bósqueda
my $rep="../2y4ntdb.txt"; #repeticiones a buscar sobre las secuencias
chomp $rep;
open (FILE, $file);
open (REPE, $rep);
my @array= <FILE>;
my @arrep= <REPE>;
close FILE;
close REPE;
 
 
for($i=1;$i<scalar(@array);$i++){
        chomp $array[$i];
        
        
        foreach $j (@arrep){
        chomp $j;
                while ($array[$i] =~ /$j/g){
 
                
                print "$j\n";
                }
        }
 
        
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Este código encuentra las apariciones, sin embargo no he logrado hacer que cuente el número de veces que aparece cada una de las palabra o caracteres de lista. Por ejemplo, la primer palabra del fragmento de lista que coloque anteriormente es "AA", así el script debería reportar "AA = 5 apariciones", "CC = 1 apariciones", etc. Ya he mirado varios mensajes en el foro solo que no he logrado introducir los contadores de manera adecuada. Espero puedan ayudarme,

Saludos.

Publicado: **2010-04-29 11:40 @528**

En Perl, los índices de los array comienzan por 0, así que en la línea 14, $i debería empezar a contar en 0.

Y en el bucle más interno, en las líneas 21 y 22, es donde debes incrementar el contador de apariciones. Por ejemplo: $veces++;. Naturalmente, antes lo has inicializado a 0, en la línea 16: $veces=0;. El print de la línea 23, debes llevarlo después de la llave del while, antes de la 25, y cambiarlo por print "$j = $veces apariciones\n";. Creo que eso es todo.

De todas formas, hay una duda...

En la secuencia de ejemplo que nos has puesto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ATGGAGTCTTTTAGAGAGTTTATCCAACAATTCAAAAAAAATAAGGCAGCGGTCGTTGGGGCTTGGATTGTGCTColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿cuántas veces aparece la secuencia AAAA?

Según tu programa, usando esa expresión regular, aparece solo dos veces:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ATGGAGTCTTTTAGAGAGTTTATCCAACAATTCAAAAAAAATAAGGCAGCGGTCGTTGGGGCTTGGATTGTGCT

                                 1--/2--/Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Ese es el resultado correcto? ¿No debería ser 5?

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ATGGAGTCTTTTAGAGAGTTTATCCAACAATTCAAAAAAAATAAGGCAGCGGTCGTTGGGGCTTGGATTGTGCT

                                 1--/||||

                                  2--/|||

                                   3--/||

                                    4--/|

                                     5--/Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Publicado: **2010-04-29 11:56 @539**

Hola, gracias por tu ayuda. Sí, claro, el resultado correcto es 5, una disculpa si no me expliqué bien.
Ya logré resolver el problema; solo modifiqué lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while($array[$i]=~/$j/g){

$hash{$j}++;
}

Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y en %hash tengo el resultado que buscaba.

Ahora solo tengo una duda: quisiera saber cuál es la localización de cada una de las palabras a lo largo de la secuencia. Por ejemplo, tomando los fragmentos que puse en el mensaje anterior si buscamos "AA" su primera aparición sería después de los primeros 25 caracteres de la secuencia (comenzando de izquierda a derecha). ¿Crees que sería posible hacer esto?

Saludos

Publicado: **2010-04-29 12:33 @564**

Para ver las posiciones de las repeticiones, te vale con consultar la función pos(), que devuelve la posición siguiente a la última repetición encontrada.

Y malas noticias: tu programa no da los resultados correctos. Sigue diciendo que 'AAAA' solo sale dos veces. Necesitas hacer un cambio importante en la forma de trabajar con la expresión regular, para que tenga en cuenta esos casos. Tienes dos opciones: o recorres la secuencia base por base, o modificas la posición de inicio de búsqueda en la siguiente vuelta del bucle, una base más allá del inicio de la última repetición encontrada.

El siguiente programa sí que da el resultado correcto (para la secuencia de ejemplo mostrada antes):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use common::sense;
use File::Read;
 
my @repeticiones = read_file({ aggregate => 0 }, '2y4ntdb.txt');
my $secuencia    = read_file('seq_pba.fasta');
 
chomp @repeticiones;    # no nos interesan
$secuencia =~ s/\n//g;  #   los finales de línea
 
for my $repetición (@repeticiones) {
 
    my $veces = 0;
    my @posiciones; # basadas en 1
 
    while ($secuencia =~ /$repetición/g) {                             # buscar $repetición en $secuencia
        $veces++;                                                      # ¡encontrada!
 
        pos($secuencia) = pos($secuencia) - length($repetición) + 1;   # ajustamos posición de búsqueda
                                                                       # de la exp. reg. para que esté
                                                                       # una base más a la derecha del
                                                                       # inicio de la última $rep encontrada
 
        push @posiciones, pos($secuencia);                             # que justamente es la posición,
                                                                       # en base 1, de la $rep encontrada
    }
 
    say "$repetición = $veces apariciones: ", join q[-], @posiciones;
}
__END__
AA = 10 apariciones: 26-29-34-35-36-37-38-39-40-43
AT = 5 apariciones: 1-22-30-41-67
AG = 6 apariciones: 5-13-15-17-44-48
AC = 1 apariciones: 27
TA = 3 apariciones: 12-21-42
TT = 9 apariciones: 9-10-11-19-20-31-56-63-68
TC = 4 apariciones: 7-23-32-53
TG = 5 apariciones: 2-57-64-69-71
GA = 4 apariciones: 4-14-16-66
GT = 5 apariciones: 6-18-52-55-70
GG = 7 apariciones: 3-45-51-58-59-60-65
GC = 4 apariciones: 46-49-61-72
CA = 4 apariciones: 25-28-33-47
CT = 3 apariciones: 8-62-73
CG = 2 apariciones: 50-54
CC = 1 apariciones: 24
AAAA = 5 apariciones: 34-35-36-37-38
AAAT = 1 apariciones: 39
AAAC = 0 apariciones:
AAAG = 0 apariciones:
TTTA = 2 apariciones: 10-19
TTTT = 1 apariciones: 9
TTTC = 0 apariciones:
TTTG = 0 apariciones:
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Publicado: **2010-04-29 12:53 @579**

Hola,

Ya caigo en cuenta. Tienes razón, no estaba considerando las múltiples formas de poder leer la secuencia y como eso alteraba los resultados.

Una última duda: ¿sería posible modificar la parte donde se hace la comparación, para así poder contar las veces que las apariciones son contiguas?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while($secuencia=~/$rep/g){

}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Saludos

Publicado: **2010-04-29 13:11 @591**

Si te refieres a contar apariciones contemplando el caso de que se solapen unas con otras, la solución ya te la he puesto arriba, al modificar el valor de pos().

En cuanto a modificar la expresión regular... no creo que se pueda hacer.

Publicado: **2010-04-29 13:35 @608**

Hola,

A lo que refiero es a contar cuántas veces las apariciones son contiguas. Por ejemplo, en el caso de la palabra "AA" el resultado dice que hay 10 apariciones en la secuencia, pero de estas 10, en 7 "AA" aparece contigua en las posiciones 34-35-36-37-38-39-40. ¿Crees que sea posible introducir una nueva condición que permita contar esto para cada una de las palabras de la lista?

Publicado: **2010-04-29 16:43 @738**

¿Y cuál debería ser la salida?

Con la siguiente modificación se puede reducir la salida de posiciones contiguas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use common::sense;
use File::Read;
use Number::Range;
 
my @repeticiones = read_file({ aggregate => 0 }, '2y4ntdb.txt');
my $secuencia    = read_file('seq_pba.fasta');
 
chomp @repeticiones;    # no nos interesan
$secuencia =~ s/\n//g;  #   los finales de línea
 
for my $repetición (@repeticiones) {
 
    my $veces = 0;
    my @posiciones;     # basadas en 1
 
    while ($secuencia =~ /$repetición/g) {
        $veces++;
        pos($secuencia) = pos($secuencia) - length($repetición) + 1;
        push @posiciones, pos($secuencia);
    }
 
    if (@posiciones) {
        my $rango = Number::Range->new(@posiciones);
 
        say "$repetición = $veces apariciones: ", scalar $rango->range();
    }
    else {
        say "$repetición = $veces apariciones";
    }
}
 
__END__
AA = 10 apariciones: 26,29,34..40,43
AT = 5 apariciones: 1,22,30,41,67
AG = 6 apariciones: 5,13,15,17,44,48
AC = 1 apariciones: 27
TA = 3 apariciones: 12,21,42
TT = 9 apariciones: 9..11,19..20,31,56,63,68
TC = 4 apariciones: 7,23,32,53
TG = 5 apariciones: 2,57,64,69,71
GA = 4 apariciones: 4,14,16,66
GT = 5 apariciones: 6,18,52,55,70
GG = 7 apariciones: 3,45,51,58..60,65
GC = 4 apariciones: 46,49,61,72
CA = 4 apariciones: 25,28,33,47
CT = 3 apariciones: 8,62,73
CG = 2 apariciones: 50,54
CC = 1 apariciones: 24
AAAA = 5 apariciones: 34..38
AAAT = 1 apariciones: 39
AAAC = 0 apariciones
AAAG = 0 apariciones
TTTA = 2 apariciones: 10,19
TTTT = 1 apariciones: 9
TTTC = 0 apariciones
TTTG = 0 apariciones
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora, se podría hacer un análisis del número de apariciones, por medio de los números separados por comas, si no quieres tener en cuenta a los rangos de apariciones consecutivas... pero todo depende de, exactamente, qué es lo que quieres obtener.

Publicado: **2010-04-29 17:58 @790**

Hola,

Con respecto a la salida que esperaría sería la siguiente.

Volviendo con el ejemplo anterior:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

AA = 10 apariciones totales: 26,29,34..40,43 y 7 apariciones en tándem.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Ya intenté modificar el código pero no he tenido éxito, en verdad se me dificulta visualizarlo con las funciones que utilizas, necesito revisar su uso.

¿Cuál sería la modificación necesaria para obtener la salida que coloqué anteriormente?

Saludos

Publicado: **2010-04-29 18:19 @805**

Bueno, consiste en analizar la cadena del rango, para echar cuentas de cuántas apariciones en tándem existen.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use common::sense;
use File::Read;
use Number::Range;
 
use open 'locale';
 
my @repeticiones = read_file({ aggregate => 0 }, '2y4ntdb.txt');
my $secuencia    = read_file('seq_pba.fasta');
 
chomp @repeticiones;    # no nos interesan
$secuencia =~ s/\n//g;  #   los finales de línea
 
for my $repetición (@repeticiones) {
 
    my $veces = 0;
    my @posiciones;     # basadas en 1
 
    while ($secuencia =~ /$repetición/g) {
        $veces++;
        pos($secuencia) = pos($secuencia) - length($repetición) + 1;
        push @posiciones, pos($secuencia);
    }
 
    print "$repetición = $veces apariciones totales";
 
    if (@posiciones) {
        my $rango = Number::Range->new(@posiciones)->range();
 
        print ":  $rango";
 
        my $tándem = 0;
 
        while ($rango =~ /(\d+)\.\.(\d+)/g) {
            $tándem += $2 - $1 + 1;
        }
 
        print " y $tándem apariciones en tándem" if $tándem;
    }
 
    say q[.];
}
__END__
AA = 10 apariciones totales:  26,29,34..40,43 y 7 apariciones en tándem.
AT = 5 apariciones totales:  1,22,30,41,67.
AG = 6 apariciones totales:  5,13,15,17,44,48.
AC = 1 apariciones totales:  27.
TA = 3 apariciones totales:  12,21,42.
TT = 9 apariciones totales:  9..11,19..20,31,56,63,68 y 5 apariciones en tándem.
TC = 4 apariciones totales:  7,23,32,53.
TG = 5 apariciones totales:  2,57,64,69,71.
GA = 4 apariciones totales:  4,14,16,66.
GT = 5 apariciones totales:  6,18,52,55,70.
GG = 7 apariciones totales:  3,45,51,58..60,65 y 3 apariciones en tándem.
GC = 4 apariciones totales:  46,49,61,72.
CA = 4 apariciones totales:  25,28,33,47.
CT = 3 apariciones totales:  8,62,73.
CG = 2 apariciones totales:  50,54.
CC = 1 apariciones totales:  24.
AAAA = 5 apariciones totales:  34..38 y 5 apariciones en tándem.
AAAT = 1 apariciones totales:  39.
AAAC = 0 apariciones totales.
AAAG = 0 apariciones totales.
TTTA = 2 apariciones totales:  10,19.
TTTT = 1 apariciones totales:  9.
TTTC = 0 apariciones totales.
TTTG = 0 apariciones totales.
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Si no entiendes algo del código, dímelo.

Foro - Perl en Español

Contar repeticiones secuencias de bases

Contar repeticiones secuencias de bases

Re: Contar repeticiones secuencias de bases

Re: Contar repeticiones secuencias de bases

Re: Contar repeticiones secuencias de bases

Re: Contar repeticiones secuencias de bases

Re: Contar repeticiones secuencias de bases

Re: Contar repeticiones secuencias de bases

Re: Contar repeticiones secuencias de bases

Re: Contar repeticiones secuencias de bases

Re: Contar repeticiones secuencias de bases