Foro - Perl en Español

Siempre se puede poner un

next if /^%+/;

para que salte esa línea.

Genial, lo dejé así:
pero, modifica una línea que no debería, en este caso, el último \end{document}. Si el archivo de entrada es de esta forma:
Cambia el último \end{document} por \end{DOCUMENT} siendo que este no está en el rango sobre el que deseo hacer modificaciones, creo que el problema está en el * que uso en verbatim\*? el cual ya está escapado.

Saludos,
Pablo.

Tienes razón.

El problema está en que $DEL va guardando los delimitadores que encontramos, y en el caso de 'verbatim*', lo que estamos indicando, en la segunda parte del biestable, es que busque por un delimitador '\end{verbatim*}'. Es decir, queremos que finalice el rango con una 'm' opcional seguida inmediatamente por la llave de cierre... y eso no se cumple en todo el resto del archivo. Por eso, desde que captura el primer 'verbatim*', hace los cambios a todas las líneas.

La solución es indicar que ese asterisco es literal, no un comodín de un patrón.

Cambia la línea 48 a:
y así, en $DEL guardamos la versión "escapada" del delimitador, y la segunda parte del biestable sí que encuentra la fila del final del rango.

Ahora funciona perfecto, un par de consultas (para variar):

• En la línea que me propones usas $DEL = "\Q$^N" no se debería colocar también \E.
• Como el hash no es conmutativo y en otra parte del script necesitaré deshacer los cambios que hice en un principio, pero, ahora ya no tendré la limitación de buscarlos dentro de los rangos de palabras, sino modificar todas las apariciones de esas palabras en el $cuerpo del archivo, me gustaría hacerlos usando una expresión regular y un hash, algo como esto:
  
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using perl Syntax Highlighting

  1. open my $ENTRADA, '<', "test.tex";
  2. my $archivo;
  3. {
  4.     local $/;
  5.     $archivo = <$ENTRADA>;
  6. }
  7. close   $ENTRADA;
  8.  
  9. ## Partición del documento
  10. my($cabeza,$cuerpo,$final) = $archivo =~ m/\A (.+? ^\\begin{document}) (.+) (^ \\end{document} .*) \z/msx;
  11.  
  12. my %cambios = (
  13.     '\TRICKS'           =>  '\pspicture',
  14.     '\ENDTRICKS'        =>  '\endpspicture',
  15.     '\begin{MYEXAMPLE'  =>  '\begin{MYexample',
  16.     '\end{MYEXAMPLE'    =>  '\end{MYexample',
  17.     '\begin{TRICKS'     =>  '\begin{pspicture',
  18.     '\end{TRICKS'       =>  '\end{pspicture',
  19.     '\begin{POSTRICKS}' =>  '\begin{postscript}',
  20.     '\end{POSTRICKS}'   =>  '\end{postscript}'  ,
  21.     '\begin{DOCUMENT}'  =>  '\begin{document}'  ,
  22.     '\end{DOCUMENT}'    =>  '\end{document}'    ,
  23. );
  24.  
  25. $cuerpo=~ s/\Q$busco\E/$cambio/g;

  Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
  y aquí es donde me pierdo, no sé si puedo usar el mismo nombre para el hash, es decir, si reescribe las claves que ya usé antes o debo darle otro nombre y cómo hacerlo correr en la expresión regular.

Totalmente agradecido,
Pablo

Ya aclaré mi duda, el hash se sobreescribe y basta con usar un for para lo que deseo:

Saludos.
Pablo

¿Un bucle for de un solo elemento? Es igual a si no pusieras nada.

Lo que has escrito se puede reducir a esto:
Es decir: aplicar los %cambios a $cuerpo.

Sí, tienes razón, luego de leer un poco más comprendí que for no era el indicado, lo dejaré como tú lo propones. Otra consulta, con la siguiente expresión regular:

intenté quitar la palabra \psset{cualquier cosa incluso saltos de línea} que preceda a la palabra \includegrahicx{name-fig-numero} pero, no me funciona, he cambiado varias veces los modificadores y no he podido dar con la correcta.

Saludos,
Pablo

Por de pronto, veo que estás usando espacios en blanco dentro del patrón, sin poner el calificador '/x'.

Tienes toda la razón, solo recordaba que /x era para colocar comentarios... Me olvidé por completo de que es el modificador preciso para esta circunstancia. Al final lo dejé así: