Foro - Perl en Español

Marne escribiste:Os dejo el programa funcional hasta la línea 380,
solo me queda un problemilla más, a partir de dicha línea.
Me gustaría que repitiera lo que es el programa en sí pero
haciendo un reverse de cada string para que me dé otro
resultado de alineamiento pero con las cadenas al revés.
Lo he intentado pero no sé cómo hacerlo... Si pudierais
echarme un último cable, yo feliz, y si no, pues haré los
estudios solo con las cadenas del derecho. Muchas gracias
por toda la ayuda prestada hasta conseguir que me funcionara esto.

En ese caso, en la parte principal del programa le das la vuelta a las secuencias, y llamas a las subrutinas otra vez.

En este foro de bioinformática hay algunos ejemplos, sobre todo en lo referente de obtención de la complementaria de una secuencia de ADN.

Para dar la vuelta a las secuencias, se puede usar la función reverse():

reverse LISTA
En contexto de lista, devuelve una lista de valores consistente en los elementos de LISTA en el orden opuesto.
En contexto escalar, concatena los elementos LISTA y devuelve un valor de cadena con todos los caracteres en
orden inverso.

print join(", ", reverse "mundo", "Hola"); # Hola, mundo

print scalar reverse "odnum ,", "aloH"; # Hola, mundo

Si se utiliza sin argumentos en contexto escalar, reverse() invierte $_.

El problema lo encuentro al intentar hacerlo con una array por que el resultado que me da
es este:

print scalar reverse @ss;
CCGTAATACAACATCTAGACAAGAGCAAAGTGTTCCTGTCGTAGCTACATGCATTCCGCGGCTGATACGGGGTAATGCCCGCACGGGTAGAGACACACCTGTTCCATAGACACAGCACGGCGGAATAGCCTGGTAGTTTTGCTTAGGCCCCTATATACCCGGAGCCTATAGAGAGCTTCGTCTGGTCTGTGACACAGGGTCCCTATCGAGGCTCTTCATGACGCTCGCTCTCCGGGAAGCGTCAACGGCGCCCAGCTGACCAATGTGGCCCTGTCATCGCTAGTTAAAAGTGTCTGGTGACTGTCTCTCACTGTGCTATCGAGATGGGCGGTGCAAGGGGCTCCGCGTAGTCTTGGCCGCGCTATAATAGTCGTCTGAAGATAGATAAGCCTTAAGCTCA

Me junta las cadenas en una sola, con lo que ya no puedo seguir con la comparación que coge las cadenas de 2 en 2.

Yo lo intenté haciendo esta subrutina,


Y luego llamándola así:

Reverse_ss(@ss);

Al hacerlo con un <STDIN> en vez de cogiendo los datos del @ss, me funciona. El problema es que no sé dónde
se encuentra el problema al tratar de simplemente darle la vuelta al @ss e introducirlo en otro array @ssRev
para que me repita el procedimiento de alineamiento pero con las cadenas al revés.

A ver... Una cosa es darle la vuelta a un array y otra es darle la vuelta a los elementos de un array.

Si haces un

@array = reverse @array;

Estás dando la vuelta al array, que quiere decir que el primer elemento se convierte en el último, y el último, en el primero. Sin tener en cuenta qué son cada uno de los elementos. Ejemplo:


En cambio, otra cosa es darle la vuelta a los elementos que hay dentro de un array:

@array = map { scalar reverse } @array;

El orden de los elementos se mantiene, pero los elementos son girados, uno a uno. Ejemplo:

La función scalar() es necesaria, para obligar a ejecutarse a reverse() en contexto escalar, y que nos devuelva el valor de $_, girado. Si no fuera por scalar(), al ejecutarse en contexto lista, un simple reverse() (sin argumentos), no sabe que tiene que girar la variable por defecto $_, así que piensa que no debe girar nada, por lo que devuelve una lista vacía (o sea, nada). Y si pusiéramos reverse($_), obtendríamos el propio valor de $_ sin girar, ya que reverse cree entonces que está girando una lista de elementos compuestos de un solo elemento.

Resumen:


Finalmente, es obvio que se pueden querer las dos cosas a la vez: girar el array y girar sus elementos:

¡Ole! Me acabas de salvar una vez más. Voy a ver si lo consigo implementar, muchas gracias de nuevo
Un saludo

Algo tan simple y no sabes la ventana que me acabas de abrir, de verdad muchas gracias por todo.