Foro - Perl en Español

por **pablgonz** » 2011-05-31 21:08 @922

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.

#!/usr/bin/perl
use File::Slurp qw( :all );
 
my $tex_file = slurp('test-pdf.tex');
my ( $preamble, $body ) = split /\\begin\{document\}/, $tex_file,
    2;                                 #dividimos en dos
my @coment = $preamble;                #
 
#Buscamos y comentamos
foreach my $comentline (@coment) {
 
    # comentamos las líneas
    $comentline =~ s/(\\usepackage){pst/\%\\usepackage{pst/g;
}
push( @coment, "\\begin\{document\} ", "$body" );    #unimos
write_file( 'test-pdf.tex', @coment ); #escribimos el modificado
exit;                                  # echo
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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.

por **explorer** » 2011-06-02 05:35 @274

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í:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use File::Slurp ':all';
 
my $tex_file = slurp('test-pdf.tex');                                # leemos
 
my ($preamble, $body) = split /\\begin\{document\}/, $tex_file, 2;   # dividimos en dos
 
$preamble =~ s/(\\usepackage){pst/\%\\usepackage{pst/g;              # modificación
 
write_file( 'test-pdf.tex', $preamble, '\begin{document} ', $body);  # escribimos el cambio
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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

por **pablgonz** » 2011-06-02 23:51 @035

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

Sintáxis: [ Descargar ] [ Ocultar ]

#----------------------- Coment pdfname-pdf.tex ------------------------
system("perl cleanslp $tempDir/$pdfname-pdf");
#------------------------- Close pdfname-pdf.tex -------------------------

(antes de invocar a pdflatex) donde cleanspl es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use File::Slurp ':all';
 
my $tex_file = slurp('$tempDir/$pdfname-pdf');                                # leemos
my ($preamble, $body) = split /\\begin\{document\}/, $tex_file, 2;   # dividimos en dos
$preamble =~ s/(\\usepackage){pst/\%\\usepackage{pst/g;              # modificación
write_file( '$tempDir/$pdfname-pdf', $preamble, '\begin{document} ', $body);  # escribimos el cambio
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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...

por **explorer** » 2011-06-03 06:54 @329

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use File::Slurp ':all';
 
my $fichero = $ARGV[0];    # el fichero se lo pasamos en el primer argumento
 
my $tex_file = slurp($fichero);                                      # leemos
my ($preamble, $body) = split /\\begin\{document\}/, $tex_file, 2;   # dividimos en dos
$preamble =~ s/(\\usepackage){pst/\%\\usepackage{pst/g;              # modificación
write_file($fichero, $preamble, '\begin{document} ', $body);         # escribimos el cambio
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **pablgonz** » 2011-06-03 16:49 @742

Muy agradecido...
con la línea

Sintáxis: [ Descargar ] [ Ocultar ]

#----------------------- Coment pdfname-pdf.tex ------------------------
system("perl cleanslp.pl $tempDir/$pdfname-pdf.tex");
#------------------------- Close pdfname-pdf.tex -------------------------

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í:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#Thanks to http://perlenespanol.com for the help given.
use File::Slurp ':all';
 
my $filemod = $ARGV[0];    
 
my $tex_file = slurp($filemod);                                    # reed
my ($preamble, $body) = split /\\begin\{document\}/, $tex_file, 2; # split in two
$preamble =~ s/(\\usepackage){pst/\%\\usepackage{pst/g;            # modified
write_file($filemod, $preamble, '\begin{document} ', $body);       # save
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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

por **explorer** » 2011-06-03 16:57 @748

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);

por **pablgonz** » 2011-06-03 21:54 @954

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

salu2

por **explorer** » 2011-06-04 04:29 @228

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().

Foro - Perl en Español

script Perl pst2pdf y pdfTeX

Autorización para crear un nuevo tema (o mover este)

Publicidad

Re: script Perl pst2pdf y pdfTeX

Re: script Perl pst2pdf y pdfTeX

Re: script Perl pst2pdf y pdfTeX

Re: script Perl pst2pdf y pdfTeX

Re: script Perl pst2pdf y pdfTeX

Re: script Perl pst2pdf y pdfTeX

Re: script Perl pst2pdf y pdfTeX

Re: script Perl pst2pdf y pdfTeX

Re: script Perl pst2pdf y pdfTeX

¿Quién está conectado?