comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Duda sobre matching de secuencias

  • 2 Respuestas
  • 1095 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Marne

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Enero 11, 2014, 09:38:12 am »
Buenos días, soy biólogo y la verdad es que estoy empezando con PERL y me encuentro totalmente perdido
a ver si alguno pudiera ayudarme, tengo mil dudas pero empezaré por la primera xDD.

A ver, esto debería ser muy sencillo pero yo soy un negado para estas cosas.

Necesito que de 8 cadenas dadas por ejemplo, me las meta en una matriz y compare por posición,
en que posicion se repite la misma letra en todas las cadenas y me imprima al final las posiciones
donde han coincidido todas las cadenas y el número de coincidencias, en las que no coincide puede haber un Gap o un espacio en blanco,
me da igual. No se si será demasiad complicado pero viendo las cosas que he visto en vuestro foro,
supongo que será relativamente fácil, aunque para mi suponga una pesadilla xDD

Muchas gracias de antemano, saludos
Marne

Ejemplo de cadenas

$cad1= "ATTACCATTAGG"
$cad2= "AGTAGGCTTAGC"
$cad3= "AGTCCCATTACG"
$cad4= "ACTACCATTAGC"
$cad5= "ATTTGAATTATC"
$cad6= "ATTCCCATTACC"
$cad7= "AGTCTCATTACG"
$cad8= "AGTCACATTATT"
« Última modificación: Enero 11, 2014, 10:12:47 am por Expermicid »

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
« Respuesta #1 en: Enero 14, 2014, 03:29:13 am »
Hola, no es muy dificil de hacer, que es lo que no te sale?


Desconectado deni_celine

  • *
  • Underc0der
  • Mensajes: 36
  • Actividad:
    0%
  • Reputación 0
  • un susurro con la fuerza de mil gritos
    • Ver Perfil
« Respuesta #2 en: Enero 14, 2014, 11:20:20 am »
MMM no estoy seguro si entendí lo que necesitabas, si es que lo entendí sería algo asi, no?

Código: You are not allowed to view links. Register or Login
use warnings;
use strict;
print "\n";

my $cad1= "ATTACCATTAGG";
my $cad2= "AGTAGGCTTAGC";
my $cad3= "AGTCCCATTACG";
my $cad4= "ACTACCATTAGC";
my $cad5= "ATTTGAATTATC";
my $cad6= "ATTCCCATTACC";
my $cad7= "AGTCTCATTACG";
my $cad8= "AGTCACATTATT";

my @arr = ($cad1,$cad2,$cad3,$cad4,$cad5,$cad6,$cad7,$cad8);
my $resultado;

for(my $i=0;$i<12;$i++){
   
    my $val = "1";
    my $aciertos = 0;
    my $iguales = 1;
    foreach my $cadena(@arr){
        my @data = split("", $cadena);
        print $data[$i]." ";
        if ($val ne "1") {
            if ($val eq $data[$i]) { $aciertos++;}
            else{ $iguales = 0; }
        }
        $val = $data[$i];
       
    }
    if ($iguales == 1) {
        $resultado .= "$val ";
        print "  Coinciden!! \n";
    }
    else{
        $resultado .= "- ";
        print "  NO coinciden :C \n";
    }
   
}
print "\n***************************\n";
print "   RESULTADO \n";
print "***************************\n";
print " x x x x x x x x x x x x\n";
print " $resultado \n\n";
print "***************************\n";

 

¿Te gustó el post? COMPARTILO!



[SOLUCIONADO] Duda con " "

Iniciado por Krisium

Respuestas: 1
Vistas: 1641
Último mensaje Junio 10, 2010, 10:50:35 am
por Xa0s
[SOLUCIONADO] [Taller PHP] Duda taller php 2 ejercicio 3

Iniciado por arthusu

Respuestas: 4
Vistas: 2078
Último mensaje Agosto 05, 2011, 02:00:42 am
por arthusu
[SOLUCIONADO] Duda con Windows 7 de 32 bits & 64 bits

Iniciado por andrestoushit

Respuestas: 2
Vistas: 825
Último mensaje Marzo 15, 2016, 04:01:16 pm
por Lah-Vahn
[SOLUCIONADO] [Taller PHP] Duda taller php 1 ejercicio 4

Iniciado por arthusu

Respuestas: 2
Vistas: 1516
Último mensaje Julio 18, 2011, 07:19:33 pm
por arthusu
[SOLUCIONADO][Taller PHP] Duda taller php 2 ejercicio 2

Iniciado por Only

Respuestas: 3
Vistas: 1865
Último mensaje Agosto 05, 2011, 09:48:09 pm
por Only