Foro - Perl en Español

Amigos del foro, tengo el siguiente dilema: tengo un archivo test.tex (fichero latex)

y deseo que termine así­



Tengo el siguiente script:

Pero, el script crea salida.tex y solo tiene lo siguiente

¿Cómo junto las partes $uno (modificada) y $dos? Usando File::Slurp se puede de forma inmediata (script-perl-pst2pdf-y-pdftex-t5369-15.html) pero, en este caso, no puedo usarlo.

Esperando su ayuda.
Pablo

Solo hay que hacer unos pocos cambios:
Esos cambios son:

• Línea 8: activamos el modo "succionador", por lo que una sola llamada de lectura del fichero nos devolverá todo el fichero, y no solo la primera línea
• Línea 12: usamos split() para dividir la primera parte, en líneas. Lo necesitamos porque luego vamos a hacer un bucle por ellas
• Línea 21: faltaba por agregar la segunda parte del fichero.

Otra versión, un poco más corta:
Lo que hacemos es leernos todo el fichero, hacer la sustitución, y grabar el nuevo fichero.

Gracias por la respuesta, con las modificaciones que me diste todo funciona Ok, solo me quedan un par de consultas.
1. Con la línea comento todas las líneas de la forma pero, en algunas ocasiones, las líneas serán de la forma ¿Cómo defino un «comodín» para que comente también estas líneas si es que las encuentra (dentro de "[ ]" puede ir cualquier nombre).

2. Si deseara guardar los cambios en el mismo archivo bastaría con cambiar por ¿Es correcto hacer esto? ¿O estoy dando vueltas extras?

No entendí tu solución corta (no veo dónde hace el split()), la analizaré con más detalle.

Gracias por todo.
Pablo

1.- Sería algo así (no probado): /(\\usepackage)(?:\[.+?\])?{pst/

Lo que hacemos es definir un sub patrón que marcamos de forma opcional (el '?' final). Y como usamos paréntesis, y no deseamos capturar ese patrón, lo marcamos como de no-agrupación (el '?:'). Y el patrón comienza por un '[', le sigue uno o más caracteres, hasta el primer ']'.

2.- Sí.

3.- La solución corta no necesita de ningún split(). Simplemente hacemos la transformación del texto a lo largo de todo el fichero, donde pille cada '^\\usepackage...' El resto del fichero no es modificado.

explorer escribiste:1.- Sería algo así (no probado): /(\\usepackage)(?:\[.+?\])?{pst/

lo probé y lo que hace es comentar y eliminar lo que está dentro de [ ], por ejemplo, si encuentra lo convierte en lo ideal sería convertir en pero, es solo un detalle.

explorer escribiste:2.- Sí.

Gracias, por fin creo que he aprendido un poco más de este maravilloso lenguaje.
3.- La solución corta no necesita de ningún split().

explorer escribiste:Simplemente hacemos la transformación del texto a lo largo de todo el fichero, donde pille cada '^\\usepackage...' El resto del fichero no es modificado.

No es lo que necesito, la primera solución es la ideal para mis necesidades, el split() es de suma importancia (en 2) puesto que solo deseo modificar el preámbulo (antes de \begin{document}) y no después de esta línea.

Una última consulta, para no tener que abrir un nuevo tema (y es una duda que tengo hace tiempo) supongamos que mi fichero de entrada test.tex es de la siguiente forma: lo divido con el script y en $uno quedaría todo lo que está entes del primer \begin{document}, ahora, me gustaría leer $uno y comentar sólo la última línea en la cual aparece \end{document} y no el resto, ¿se puede hacer eso con Perl? Con sed creo que se puede, pero, ya que estoy corriendo un script Perl, y no siempre tengo Linux, ¿es posible hacer esto?

Gracias por los comentarios y ayuda.
Pablo.

pablgonz escribiste:

explorer escribiste:1.- Sería algo así (no probado): /(\\usepackage)(?:\[.+?\])?{pst/

lo probé y lo que hace es comentar y eliminar lo que está dentro de [ ]

No lo había probado. Es así:

/(\\usepackage(?:\[.+?\])?)\{pst/

(He movido un paréntesis de sitio. Además, he escapado '{', porque las llaves sí son significativas para los patrones.)

pablgonz escribiste:No es lo que necesito, la primera solución es la ideal para mis necesidades, el split() es de suma importancia (en 2) puesto que solo deseo modificar el preámbulo (antes de \begin{document}) y no después de esta línea.

Claro, y eso es lo que hace: solo modifica la primera vez que se encuentra '\usepackage'. Otra cosa es que le añadas la opción '/g' a la expresión regular, en cuyo caso hará el cambio en todas las líneas. Pero si no lo pones, solo hará el cambio en la primera ocasión.

pablgonz escribiste:¿se puede hacer eso con Perl? Con sed creo que se puede, pero, ya que estoy corriendo un script Perl, y no siempre tengo Linux, ¿es posible hacer esto?

Sí, claro. Perl es una herramienta perfecta para procesar texto. Se podría encontrar un patrón de expresiones regulares, o usar lo del split(), y luego usar join() o imprimir por partes... igual que antes.

explorer escribiste: No lo había probado. Es así:
/(\\usepackage(?:\[.+?\])?)\{pst/
(He movido un paréntesis de sitio. Además, he escapado '{', porque las llaves sí son significativas para los patrones.)

Muchas gracias, con este patrón (el cual intenté a ensayo y error varias veces) puedo hacer un sin fin de cosas dentro de este (y otros) script.

explorer escribiste: Perl es una herramienta perfecta para procesar texto. Se podría encontrar un patrón de expresiones regulares, o usar lo del split(), y luego usar join() o imprimir por partes... igual que antes.

La verdad, me demoré bastante rato en entender split() y join(). La mayor parte de los ejemplos que encontré en la red son referidos a variables creadas dentro del script (palabras, números, etc) y no a archivos externos. «split, join, ~ s/.../» son ideales para trabajar con ficheros de solo texto.

En fin, daré el tema por resuelto.

Seguiré leyendo respecto al tema de los «patrones regulares», reitero mi agradecimiento al foro y sus participantes.

Saludos,
Pablo.

Ese fichero tex nunca funcionará tal y como lo escribes: tienes mal puestos los entornos.

¡Ah!, ya veo: el truco está en el verbatim. No he dicho nada entonces.

Una manera muy rara de escribirlo de todos modos... Eso es andar buscando problemas en el futuro.

Por otra parte escribir un script de 19 líneas para cambiar un único carácter una sola vez parece una manera muy poco eficiente de emplear tu tiempo. A veces los problemas son simples y la solución a un problema muy simple no puede ser complicada.

Yo haría la sustitución a mano o usaría un one-liner directamente si tuviera que repetir el proceso muchas veces. No veo ningún beneficio en hacerlo de otro modo, pero puedo equivocarme claro.

Salvo error u omisión por mi parte al teclearlo (no lo he comprobado) todo tu problema se resuelve en una línea de Perl:

pvaldes escribiste:Yo haría la sustitución a mano o usaría un one-liner directamente si tuviera que repetir el proceso muchas veces. No veo ningún beneficio en hacerlo de otro modo, pero puedo equivocarme claro.

Lo de la línea de comando es buena idea... cuando se dispone de Perl por completo, pero, mi caso es distinto, cuando corres texlive en win32, éste corre con una versión pequeña y limitada dentro de él, es decir, cuando quieres ejecutar un script Perl registrado en texlive win32, éste corre Perl sin que tu puedas acceder a él (tiene registros propios) a diferencia de las versiones en Linux.

pvaldes escribiste:Por otra parte escribir un script de 19 líneas para cambiar un único carácter una sola vez parece una manera muy poco eficiente de emplear tu tiempo. A veces los problemas son simples y la solución a un problema muy simple no puede ser complicada.

Discrepo totalmente de eso, te daré un ejemplo:
Supongamos que queremos sacar una revista de mate mensualmente dentro de una comunidad de usuarios donde los archivos están escritos en TeX. Los artículos son enviados por distintos usuarios, y no todos ellos utilizan el mismo preámbulo y abreviaciones de comandos. Entonces tenemos el siguiente problema: ¿cómo creamos un solo gran archivo con todos los artículos? Con \include{archivo}, pero, \include{archivo} no nos permite tener preámbulo. El script (que está arriba) da una forma genérica para dividir archivos tex en preámbulo y cuerpo e imprimir la parte que deseas eliminar -del preámbulo o cuerpo- lo que da problemas, para este caso especifico, es por conversión de ficheros latex a pdflatex (que no soporta pstricks).

> entonces tenemos el siguiente problema: ¿cómo creamos un solo gran archivo con todos los artículos?

Problema facilísimo de resolver: de entrada el comando que buscas no es include, probablemente, sino:


Tener más de un preámbulo para una revista es en el 99,99% de los casos absurdo. Aparte de que no compilará adecuadamente, claro. Los artículos no deberían tener preámbulo, pero eso en todo caso es un problema que resuelves en segundos a mano. No te compliques la vida. Si tu eres el editor, tu editas todo (modo hormiguita hacendosa).

Alternativa dos, (modo cigarra holgazana ) Si cada artículo tiene un preámbulo, compila cada uno aparte. Tienes que producir las páginas correspondientes en pdf por separado y pegarlas posteriormente en un pdf mayor. Con eso evitas todo el problema que tienes con los preámbulos y los paquetes que chocan entre si.

Insisto, no uses una solución compleja teniendo una sencilla disponible.

Respecto a lo de tener un Perl capado pudiendo tener uno entero gratis, pues... tu te lo pierdes nada te impide instalar un Linux junto a tu Windows, pueden convivir juntos en el mismo ordenador perfectamente, es un falso problema.