Foro - Perl en Español

SOLUCIONADO

He escrito una función con la intención de que a partir de una referencia a un hash con los trigramas como claves y su número de apariciones en una cadena como valores, y de una cadena de la que se ha calculado ese hash mediante otra función, me almacene en un hash los trigramas repetidos y los lugares de la cadena en que aparecen.

Pero no funciona. Ni a tiros.



EDITADO [Aparentemente calcula bien los desplazamientos, pero no los guarda en el array que deseo convertir en valor de cada clave del hash que retorna la función]. No era ese el problema.

Además tengo la duda de si con el módulo utf8::all funciona correctamente la función length(). Aquí me ha dado problemas, pero podrían haberse debido a la "creatividad" con que acometo el trabajo con hashes en estos momentos...

Un saludo.

EDITO[PS: He visto un montón de errores de lógica, y de aún sentido común, en el código que ya he editado. Aun con todo, no consigo ver por qué no funciona ] Solucionado.
PS: No hay como pensar.

Mete la línea

my @dist_por_elemento;

dentro del if(), y quita la línea del undef, porque ya no hará falta. El my() creará un nuevo array, en cada vuelta.

Cuando haces la asignación [ @dist_por_elemento ], estás guardando una referencia a una lista de caracteres, que son los que había en ese array, así que es correcto (es un hash de arrays).

Cuando funcione, pruébalo con este caso, con una cadena así: 'AAAAAAAACCCCCCCG'

Cuidado, porque hay truco.

¡Vaya día que llevo! ¡Tener problemas con Perl es una cosa, pero tenerlos con la lógica...!

Comprendido lo de la declaración de @dist_por_elemento. Como su alcance se limita al bloque en que ha sido declarada no necesito hacerla global a la función ni reiniciarla explícitamente.

Cuando funcione, pruébalo con este caso, con una cadena así: 'AAAAAAAACCCCCCCG'

Creo que ya lo tengo...



Y la salida ahora queda:



¿Trampas? ¡Para mí una simple raya de lápiz en el suelo ya es una trampa!

Gracias, explorer.

¿Estás completamente seguro de que en la cadena 'AAAAAAAACCCCCCCG' solo hay 2 trigramas 'AAA'? Yo veo más... Quizás, seis.

¡Miér...coles!

Bueno... Por lo menos el programa falla porque no tengo claro lo que pretendía hacer, no por estar mal programado...
Vuelta a la casilla de salida, o casi.
¡Gracias!

Bueno... La función que hace el recuento no he tenido que tocarla. En cambio, la que calcula la frecuencia la he tenido que rehacer de arriba a abajo. De ser una cosa sencilla y limpia tal que así:



A este monstruo de tenebroso aspecto:



El resultado, ahora:

xxxxx@xxxxx:~/Escritorio/scripts_criptografía$ ./frec_calc.pl
Introduce la cadena a considerar
AAAAAAAACCCCCCCG
Hay 5 tríos de caracteres, que son AAA,AAC,ACC,CCC,CCG,
La frecuencia de cada trigrama es:
Trigrama AAA ------>6
Trigrama AAC ------>1
Trigrama ACC ------>1
Trigrama CCC ------>5
Trigrama CCG ------>1
El trigrama AAA se encuentra en los desplazamientos 0,1,2,3,4,5,
El trigrama CCC se encuentra en los desplazamientos 8,9,10,11,12,

¿No habría una forma de hacer lo mismo mediante el operador match, como había hecho en la versión antigua? ¿Ningún modificador mágico?



¡Ayyyy, qué cabeza!

Claro que se puede hacer con el operador de coincidencia.
De hecho, esto mismo se hace para el caso de usar index(): modificas el $offset para indicar a partir de dónde quieres reiniciar la búsqueda.

"pos" directly accesses the location used by the regexp engine to store the offset, so assigning to "pos" will change that offset

Entiendo que es una especie de función C fseek() pero para el motor de expresiones regulares y que se puede utilizar de manera similar.

De todos modos esta forma de trabajar precisaría de otro bucle para pasar las cadenas de búsqueda, que además habría que determinar en una función previa, por lo que parece, a simple vista, una mala opción. ¿Correcto? (A no ser, claro, que lo que tuviera que buscar fueran expresiones regulares predeterminadas...)

PS: estaba pensando en la manera de detectar bucles que usó Turing para romper Enigma: http://fr.wikipedia.org/wiki/Cryptanalyse_d'Enigma. ¿Cómo de grandes pueden ser las expresiones regulares?

Un saludo

otronovato escribiste:¿Cómo de grandes pueden ser las expresiones regulares?

El límite es la memoria RAM.

Por ejemplo, en el libro "Mastering Regular Expressions" (séptima edición, diciembre 1998, página 316), aparece una monstruosa exp. reg. de 6598 bytes de longitud, para verificar si una dirección de correo electrónico está correctamente escrita, o no.