Foro - Perl en Español

Dando vueltas y vueltas al problema, me percato de lo siguiente. Las líneas entre la cuales deseo buscar tienen más menos ésta forma:

Donde $ENTORNO es igual a:

Visto esto los casos que se pueden dar son 5:
o así:
o así:
o así:
o así:
Donde A y B pueden contener saltos de línea, espacios, incluso parejas de [] y {}. Además pueden o no estar presentes, conmutando su posición [A]{B}, {B}[A], [A], {B}. Lo constante es que el inicio de lo que busco termina con un \s y que la palabra de cierre (\end{$ENTORNO}) es la misma con la que inicia la cadena sobre la cual deseo hacer los cambios. Creo que es demasiado complejo lo que busco o quizás se deba hacer de otra forma y no dentro del bucle, no estoy seguro.

Saludos,
Pablo

Revisando el hilo, creo que entendí algo de forma errada, cuando me refería a que «no se anidan los entornos» sobre los cuales deseo buscar. Me refería a que las palabras que delimitan el texto (entornos) sobre el cual deseo los cambios no se repiten dentro de él, pero, sí pueden aparecer el resto de las palabras delimitadoras dentro de él.

Por ejemplo, si el entorno comienza por \begin{LTXexample} debe terminar en \end{LTXexample} y ninguna de estas dos palabras se repetirá dentro de este entorno (no se anidan) pero, sí pueden aparecer las demás, es decir, si las palabras que delimita son: los entornos podrían ser:
o de manera más clara:
y el caso:
no se puede dar.
Con esto el problema se me complica al doble, tengo un enredo de «Análisis combinatorio» entre [A]{B} y las palabras delimitadoras. Sé que el motor de expresiones regulares trabaja usando análisis combinatorio para cazar las búsquedas en la expresiones regulares, pero, no doy con la expresión regular que me permita hacer esto.

En fin, seguiré leyendo a ver si se me ocurre algo.
Saludos,
Pablo.

Viendo los cinco casos, el mínimo común denominador es...

/^\\begin\{($ENTORNO)\}/ .. /^\\end\{$1\}/

entonces, una solución es la de procesarlo por líneas:

Este programa genera una salida casi a la que pides (le falta la parte de los \verb y alguna cosa más) pero es suficiente para que veas la idea: buscamos rangos completos no anidados, y aplicamos los cambios línea a línea.

Gracias explorer, pero, no puedo correrlo, me arroja el error:
en la línea 26 y no lo he podido solucionar.

Entiendo cuál es la idea y el uso de .. para definir el rango (que es lo que buscaba). Creo que podré adaptar este esqueleto a lo que deseo; y otra consulta: ¿Puedo hacerlo sin el módulo File-Slurp? En el trabajo dispongo de Perl 5.16 pero solo con los módulos que vienen instalados por defecto (core, creo que es la palabra para esto).

Agradecido,
Pablo.

P.D.: Me he percatado que en varias de las últimas respuestas que has dado en el foro has usado éste módulo, ¿es mejor que usar Tie-File que viene instalado por defecto?

El aviso que te sale es porque tendrás activado el modo estricto, o quizás, los warnings, o tendrás un parámetro '-T' en la cabecera o en la llamada al programa.

Para solventarlo, tienes que hacer lo que te dice: coloca

use re 'eval';

al principio del programa.

El uso del operador rango viene bien cuando lo que queremos procesar son líneas. Esta forma de trabajo es idéntica -o hace lo mismo- que las soluciones anteriores en las que leíamos todo el archivo en una sola variable escalar, y aplicáramos la siguiente exp. reg.:

while ($cuerpo =~ /^\\begin\{($ENTORNO)\}(.+?)^\\end\{\1\}/g) {

y dentro del while tendríamos que hacer todo lo de las sustituciones de %cambios, y acordarnos de hacer un pos(), al final, para reposicionar la siguiente búsqueda en $cuerpo.

Solo que, como ves, no tenemos que reposicionar, ya que los cambios y la detección las hacemos por líneas enteras que imprimimos inmediatamente.

En cuanto al módulo File::Slurp, naturalmente que lo puedes hacer sin él. Yo he hecho lo siguiente: siendo el root del sistema, he ejecutado (en un sistema Linux Mint, donde estoy ahora)

apt-get install libfile-slurp-perl

Al cabo de 10 segundos, ya estaba instalado.

En el código, ya ves en qué consiste: la línea

equivale a tener que escribir
solo que, más cómodo

Genial, recordé que en Perl 5.16 el modo estricto viene activado por defecto, bastaba con agregar la línea que me comentaste y ya todo funciona a la perfección.

Un par de consultas para cerrar este hilo:

• Un hash es conmutativo, es decir:
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using perl Syntax Highlighting

  1. '\pspicture'   => '\TRICKS',

  Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
  es equivalente a:
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using perl Syntax Highlighting

  1. '\TRICKS'    => '\pspicture',

  Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
  y de ser así , ¿cómo lo uso en este sentido?
• Trabajar el archivo línea a línea, ¿es más rápido que usando las soluciones anteriores?
• ¿Cuál es la diferencia entre .. y ...?

Bueno, eso sería todo por ahora, dividiré lo que deseo hacer en dos partes; una para \verb y otra para los entornos usando el mismo hash.

Agradecido por todo,
Pablo

1. No. Un hash no es conmutativo. Un hash es un conjunto de pares clave/valor. Si quieres la versión contrario, debes crear nuevos pares claves/valor.

2. Depende. Lo normal es decir que, es mucho más rápido leer todo el archivo a memoria, y así reducimos el número de operaciones, a costa de complicarnos lo de buscar la información dentro de lo que hemos leído. Pero en otra ocasiones no nos quedará más remedio (caso de que el archivo sea muy grande y no entre en memoria). O que solo nos interesa procesar unas determinadas líneas.

3. La información sobre el operador rango la tienes en perldoc perlop:

En contexto de escalar, ".." devuelve un valor booleano. El operador es biestable, como un flip-flop, y emula el operador rango-de-línea de sed, awk, y diversos editores. Cada operador ".." mantiene su estado booleano propio, incluso a través de llamadas a la subrutina que lo contenga. Es falso, siempre y cuando su operando izquierdo sea falso. Una vez que el operando izquierdo sea verdadero, el operador rango se mantiene así hasta que el operando de la derecha sea verdadero, DESPUÉS de lo cual, el operador rango se vuelve falso de nuevo. No se vuelve falso hasta la próxima vez que el operador rango es evaluado. El operador rango puede probar el operando de la derecha y convertirse en falso en la misma evaluación en que se hizo verdadero (como en awk), pero aún así devuelve verdadero al menos una vez. Si no quiere poner a prueba el operando derecho hasta la próxima evaluación, al igual que en sed, solo tiene que utilizar tres puntos ("...") en lugar de dos. En todos los demás aspectos, "..." se comporta como "..".

Muchas gracias por la explicación, ahora me queda claro lo del hash y el operador de rango (algo me acordaba de sed). ¿Me puedes explicar cómo funciona (?<!patrón)? Traté de añadirlo para que no me procesara las líneas que iniciaban con uno o más signos de '%', pero no capto lo de ancho fijo de la documentación.

Saludos.

Lo de "ancho fijo" se refiere a que no puedes usar cuantificadores ('*', '+', '?', '{}').

Entonces, (?<!...) delimita un patrón "fijo" que no debe ocurrir antes de ese lugar del patrón principal.

Ok, entiendo, eso quiere decir que no me servirá para hacer lo que deseo. Mi idea era no procesar las líneas que comenzaran con uno o más '%', es decir, líneas de este estilo:
o
No deseo que las tome en cuenta. Quizás pueda añadir estas palabras al hash que uso en \verb que sí puede cambiar estos casos y luego crear un nuevo hash para modificar las palabras que deseo.

Agradecido,
Pablo.