Foro - Perl en Español

Bueno, como a mí me gustan las expresiones regulares, lo he resuelto usando (su) fuerza bruta.

Es la misma solución, así que no es una solución humilde. Enhorabuena también para ti.

Si acaso, una forma más perlera de escribir los bucles sería así:

for $m (1 .. 9) {

La estructura es:

(?(condición)patrón-sí|patrón-no)

(En este caso concreto, no está la parte de patrón-no)

Se trata de una estructura que comprueba una condición. Si la condición es verdadera, el resultado de la estructura será un patrón: el indicado por patrón-sí. Si no es verdadera, devuelve el patrón-no.

Esto se usa para indicar distintos patrones de búsqueda según el valor de una condición.

En este caso, la condición es

(?{ ... })

que es una estructura que contiene una expresión Perl, que es evaluada. En este caso, se pasan a las variables $M, $A y $D la longitud de las capturas de paréntesis realizadas antes (líneas anteriores a las mostradas). Y se termina con una comparación de igualdad, similar a la de tu último código.

Si el resultado de esta condición es verdadera, se ejecuta la parte de patrón-sí, que resulta que es:

(?{ say "$M$A$D"; })

que a su vez es otro código Perl ejecutable. En este caso, un simple say(), sacando el resultado correcto de la búsqueda.

Como no hay patrón-no, pues no hace nada en caso de que la condición falle.

Después de eso, hay un patrón predefinido:

(*FAIL)

Este patrón no coincide con nada. Solo provoca un "fallo de coincidencia" al motor de expresiones regulares, haciéndole creer que la búsqueda actual ha fracasado, y que debe reintentarlo con otro patrón distinto. Lo que hace el motor de expresiones regulares es volver atrás, y volver a ajustar los parámetros de búsqueda de las 'M', en la parte de '{1,9}', probando con otra combinación.

Todo esto es para imitar el funcionamiento de tres bucles anidados: el motor de expresiones regulares probará con todas las combinaciones de '{1,9}'.


Más información en tu propio ordenador en perldoc perlre, y en la Web (traducido al español).

¿Seguro que está fuera ? Está a continuación. Y hay un paréntesis de cierre de la condición.

Cuando me refiero a condición, me refiero a esta estructura:

(?(condición)patrón-sí)

(condición) es la condición que comprueba si hemos encontrado los valores correctos que cumplen con la condición matemática. Si se cumple, se devuelve patrón-sí. Tanto condición como patrón-sí son, a su vez, ejecución de código, así que tienen sus propios paréntesis adicionales.

Fíjate en el código que publiqué al principio.

• en la línea 5 se crea la cadena de caracteres donde vamos a realizar las búsquedas
• en la línea 6 está el operador de exp. reg., y el delimitador del patrón, que termina en la línea 23
• en la línea 7 indicamos que todas las búsquedas deben estar ancladas al principio de la cadena
• en las líneas 8 a 9 indicamos que esperamos tres conjuntos de letras 'M', de entre una a nueve letras
• en la línea 11 comienza la condición, que termina en la línea 21
• la condición que se va a probar está entre las líneas 11 y 17, incluidas; y la parte que se ejecuta si la condición se cumple, son las líneas 18 a 20, incluidas
• después de la condición, viene el FAIL, que está en la 22, así que se ejecuta siempre (no está dentro de la condición)
• en la línea 23 termina el patrón, junto con la opción x, que es la que nos permite escribir el patrón con espacios en blanco y en varias líneas

Espero que quede claro. Si no, vuelve a preguntar, que no pasa nada.