Foro - Perl en Español

Estimado Explorer, ya que el problema, después de leer y hacer pruebas se reduce a dividir un archivo de texto en dos (antes y después del primer \begin{document}), modificar una parte y salvar los cambios en el mismo fichero, lo cual no tiene que ver directamente con pst2pdf, ¿se podría mover el tema a uno nuevo? (sólo la segunda parte), de titulo «Dividir texto en dos y modificar sólo una parte» (por ejemplo), una vez que pueda resolver esto, veo la forma de insertarlo dentro pst2pdf.

Gracias de tus comentarios y el de todos los usuarios del foro
¡Aaah!, y obvio, si me puedes prestar ayuda con el script te lo agradecería.

En la expresión regular del split(), hay que "escapar" el significado de las llaves, por sí tienen significado en el patrón.

Con este programa, se muestra como se puede realizar esa partición:

Eres un genio, trate de dividir el archivo, escapando las llaves y todo (muchos, muchos intentos), pero no me funcionaba, logre el cometido (adaptando tu código e instalando File::Slurp) con el siguiente código:



Una mezcla perfecta de las ideas de pvaldes y tus comentarios y las ideas que surgieron en el camino, con esto doy por solucionado el «sub problema».

Ahora, retomo el problema original (vuelta con el dolor de cabeza), el script pst2pdf.

En la línea 289 empieza sub runpdfTeX(), se crea $tempDir/$pdfname-pdf.tex, este fichero $pdfname-pdf.tex es el que deseo poner de entrada $tex_file para efectuar los cambios y que el script continué su llamada al sistema para pdflatex, compile y cierre.

¿Cómo llamo a $pdfname-pdf.tex antes de que empiece la rutina de compilación?

Solucionado esta problemática, daré por cerrado y solucionado el tema (por eso el titulo temporal de adaptar un script dentro de otro, el problema era que no existía dicho script)

Muchas, Muchas, muchas gracias a todos.
Esperando solucionar el último dilema, se despide Pablo.

Comentarios al código:

Al hacer el split(), la primera parte es un escalar ($preamble), al hacer luego my @coment = $preamble;, estás definiendo un array con un solo elemento, que es el valor de $preamble.

Entonces, el bucle foreach() solo se ejecuta una vez. $comentline contendrá el valor de $preamble, sacado de @coment.

Luego viene la expresión regular, que, ahora sí, con la opción /g, hará la sustitución de $comentline, que, como es un alias del primer valor de @coment, queda también modificado.

Luego, unes las partes y las sacas al fichero.

Estás dando un par de vueltas de más...

Queda más corto y claro así:


Puedes llamar a este programa, desde el principal, con system(), por ejemplo.

Al hacer el split(), la primera parte es un escalar ($preamble), al hacer luego my @coment = $preamble;, estás definiendo un array con un solo elemento, que es el valor de $preamble.

explorer, tienes toda la razón: daba unas vueltas extras (trataba de adaptar uno de los tantos intentos que hice con Tie::File). Lo cambie por tu código (que es el correcto), ahora, inserto el script en pst2pdf con la línea

(antes de invocar a pdflatex) donde cleanspl es:

pero, no me funciona, ¿estoy indicando mal la forma de abrir el fichero? o ¿se debe adaptar el código para insertarlo en pst2pdf? o el error está en otra parte.

Muchas gracias por la ayuda, seguiré probando...

El problema es que el programa cleanslp no "recoge" el valor de $tempDir/$pdfname-pdf cuando se lo pasas como argumento.

Además, en la línea 4, has puesto las variables entre comillas simples, impidiendo su interpolación, así que

my $tex_file = slurp('$tempDir/$pdfname-pdf');

está intentando leer un fichero que se llama $tempDir/$pdfname-pdf (incluidos los caracteres '$').

Debes cambiar el programa cleanslp a esto:

Muy agradecido...
con la línea


Y con la modificación dada, el script funciona perfectamente. Es increíble el poder de Perl para manejar ficheros de texto, el script quedo así:



Sólo un par de preguntas para terminar con el tema:
1. ¿Se pude «silenciar» la salida de un comando de sistema, es decir, que no se llenara la pantalla mostrando lo que hace con un programa externo (latex por ejemplo) mientras llama a este script?
2. Se podría, escribir el código cleanslp dentro del mismo pst2pdf y que ejecutara la misma acción, sin tener que reescribir todo pst2pdf.

Son sólo un par de interrogantes, por mi parte, espero sus comentarios y escribiré a Herbert Voss, luego, daré por cerrado el tema.

Agradecimientos infinitos a todos, en especial a pvaldes y explorer.
Pablo

En vez de ejecutarlo con system(), puedes hacerlo con qx(). Entonces, estarás ejecutando el programa externo, pero además estarás capturando su salida (en algunas casos necesitamos de esa salida).

my $salida = qx(perl cleanslp.pl $tempDir/$pdfname-pdf.tex);

Hecho, en winxp con ActivePerl, funciona a la perfección, en Fedora 15, también.

salu2

pablgonz escribiste:2. Se podría, escribir el código cleanslp dentro del mismo pst2pdf y que ejecutara la misma acción, sin tener que reescribir todo pst2pdf.

Sí... no es más que un split(), una sustitución con una expresión regular, y luego un join().