Foro - Perl en Español

por **pablgonz** » 2011-05-29 16:05 @712

Muchas gracias por los comentarios, aquí coloco un ejemplo para clarificar
test-pdf.tex

Sintáxis: [ Descargar ] [ Ocultar ]

Using latex Syntax Highlighting

\RequirePackage{graphicx}
\let\IncludeGraphics\includegraphics
\graphicspath{{images/}}
\documentclass[10pt]{article}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
\usepackage{pstricks}
\usepackage{pstricks-add}
\usepackage[spanish]{babel}
\usepackage{microtype}% sólo pdftex 
\begin{document}
Este es un ejemplo creado con el siguiente código
\begin{verbatim}
\documentclass[10pt]{article}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
\usepackage{pstricks}
\usepackage{pstricks-add}
\usepackage[spanish]{babel}
\usepackage{microtype}% sólo pdflatex 
\begin{document}
\begin{pspicture}[showgrid=true](4,2)
\psscaleboxto(8,2){Hola}
\end{pspicture}
\begin{pspicture}[showgrid=true](4,2)
\psscaleboxto(4,2){foo bar}
\end{pspicture}
\end{document}
\end{verbatim}
Para obtener
 
\IncludeGraphics[scale=1]{test-tmp-0.pdf}
y
\IncludeGraphics[scale=1]{test-tmp-1.pdf}
\end{document}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Con el este script

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use Tie::File;
 
#Archivo que quieres editar
my $archivo = 'test-pdf.tex';
 
my @coment=split(/\\begin{document}/, $archivo,2); 
#Usamos tie
tie @coment, 'Tie::File', $archivo or die "No se comento ninguna linea: $!";
#Buscamos y comentamos 
foreach my $line (@coment) { 
chomp($line);
# Comenta las lineas que contienen los paquetes indicados
$line =~ s/(\\usepackage){pst-graphicx}/\%\\usepackage{pst-graphicx}/i; 
$line =~ s/(\\usepackage){pstricks}/\%\\usepackage{pstricks}/i; 
$line =~ s/(\\usepackage){pstricks-add}/\%\\usepackage{pstricks-add}/i; 
#más lineas a comentar
}
#Termina la rutina
untie @coment;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Resulta esto

Sintáxis: [ Descargar ] [ Ocultar ]

Using latex Syntax Highlighting

\RequirePackage{graphicx}
\let\IncludeGraphics\includegraphics
\graphicspath{{images/}}
\documentclass[10pt]{article}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
%\usepackage{pstricks}
%\usepackage{pstricks-add}
\usepackage[spanish]{babel}
\usepackage{microtype}% sólo pdftex 
\begin{document}
Este es un ejemplo creado con el siguiente código
\begin{verbatim}
\documentclass[10pt]{article}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
%\usepackage{pstricks}
%\usepackage{pstricks-add}
\usepackage[spanish]{babel}
\usepackage{microtype}% sólo pdflatex 
\begin{document}
\begin{pspicture}[showgrid=true](4,2)
\psscaleboxto(8,2){Hola}
\end{pspicture}
\begin{pspicture}[showgrid=true](4,2)
\psscaleboxto(4,2){foo bar}
\end{pspicture}
\end{document}
\end{verbatim}
Para obtener
 
\IncludeGraphics[scale=1]{test-tmp-0.pdf}
y
\IncludeGraphics[scale=1]{test-tmp-1.pdf}
\end{document}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero, también comenta las lineas después del primer \begin{document}, Con la idea de split() no debería suceder , ¿que es lo que tengo mal definido?, hice varios intentos, pero no me funcionan... creo que, solucionado eso, se acaba el problema

Respecto al tratamiento de imágenes, estoy totalmente de acuerdo, solo son líneas de texto para TeX. El tema es, TeXlive 2010 y MikTeX 2.9, al actualizar sus versiones de pdfTeX a 1.40.11 se agregó un warning que antes no estaba, el cual aparece cada vez que encuentra un paquete pstricks... lo cual impide que se compile el archivo al ser llamado por pst2pdf. Por eso la idea era "limpiar" el código de esos paquetes antes de compilarlo.

¿POR QUÉ TANTO FANATISMO CON EL SCRIPT? Por muchos motivos: en el universo TeX existen varias soluciones de conversión de formatos entre pstricks y pdf, pero ninguna como esta: limpia todo (a excepción del preámbulo) de código pstricks, genera una carpeta con todas las imágenes creadas en formato pdf y el original .tex, con lo cual me permite trabajar no solo con pdfTeX sino también con LuaTeX y XeTeX, para publicaciones (en algunas imprentas piden las imágenes por separado) sin contar que puedo modificar todas las imágenes (tamaño, posición, etc) sin tener que mover tantas líneas de código.

Muchas gracias.

$line =~ s/(\\usepackage){pst-graphicx}//gi;
$line =~ s/(\\usepackage){pstricks}//gi;
$line =~ s/(\\usepackage){pstricks-add}//gi;
$line =~ s/(\\usepackage){pst-barcode}//gi;
$line =~ s/(\\usepackage){pst-tvz}//gi;
$line =~ s/(\\usepackage){pst2pdf}//gi;
$line =~ s/(\\usepackage){pst-bspline}//gi;
$line =~ s/(\\usepackage){pst-math}//gi;
$line =~ s/(\\usepackage){pst-solides3d}//gi;
$line =~ s/(\\usepackage){pst-circ}//gi;
$line =~ s/(\\usepackage){pst-am}//gi;
$line =~ s/(\\usepackage){pst-optic}//gi;
$line =~ s/(\\usepackage){pst-sigsys}//gi;
$line =~ s/(\\usepackage){pst-magneticfield}//gi;
$line =~ s/(\\usepackage){pst-fun}//gi;
$line =~ s/(\\usepackage){pst-node}//gi;
$line =~ s/(\\usepackage){pst-gantt}//gi;
$line =~ s/(\\usepackage){pst-jtree}//gi;
$line =~ s/(\\usepackage){pst-asr}//gi;
$line =~ s/(\\usepackage){pst-3dplot}//gi;
$line =~ s/(\\usepackage){pst-fractal}//gi;
$line =~ s/(\\usepackage){pst-coil}//gi;
$line =~ s/(\\usepackage){pst-exa}//gi;
$line =~ s/(\\usepackage){pst-platon}//gi;
$line =~ s/(\\usepackage){pst-thick}//gi;
$line =~ s/(\\usepackage){pst-mirror}//gi;
$line =~ s/(\\usepackage){pst-knot}//gi;
$line =~ s/(\\usepackage){pst-optexp}//gi;
$line =~ s/(\\usepackage){pst-support}//gi;
$line =~ s/(\\usepackage){pst-bezier}//gi;
$line =~ s/(\\usepackage){pst-calendar}//gi; 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Yo lo simplificaría en una sóla línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$line =~ s/\\usepackage\{pst/\#\\usepackage\{pst/gi;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

he eliminado el "()" de usepackage, no veo que sirva de mucho realmente, por otra parte no recuerdo ahora si el { hay que escaparlo con \{ pero es probable que lo lleve, le pongo barras por si acaso, comprueba ambos puntos

Una buena razón para comentar la línea en vez de eliminarla es que es más eficaz para eliminar problemas, ten en cuenta que tu estrategia tal y como está planteada ahora fallará en numerosas ocasiones, por ejemplo, imagina que te encuentras lo siguiente:

\usepackage{pst-optexp,pst-bezier,pst-calendar}

por **pablgonz** » 2011-05-29 18:06 @796

pvaldes escribiste:bien, de entrada todo ésto:
............................................................
Yo lo simplificaría en una sóla línea:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
$line =~ s/(\\usepackage){pst/\#\\usepackage){pst/gi;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Muchas gracias

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$line =~ s/(\\usepackage){pst/\%\\usepackage{pst/gi;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Los comentarios en TeX son % (# es sólo de Perl, ¡je,je!), pero, sigo con el problema del ejemplo... creo que mi split() no está bien definido, por eso recorre todo el archivo.

por **pvaldes** » 2011-05-29 18:14 @801

ups, es verdad :mrgreen:

%

...
Uso de split:

split /PATRON/,EXPRESION,LIMITE

si limite = 2 sólo separa en dos campos, o sea una vez (ignorará todas las marcas de corte salvo la primera)

y ojo que la sustitucion hay que aplicarla a la primera variable solo, si divides en $preambulo y $documento con split luego

$preambulo =~ s/(\\usepackage){pst-calendar}//gi;

por **pablgonz** » 2011-05-29 18:29 @812

pvaldes escribiste:Uso de split:
split /PATRON/,EXPRESION,LIMITE
sí límite = 2 sólo separa en dos campos, o sea una vez (ignorará todas las marcas de corte salvo la primera)
$preambulo =~ s/(\\usepackage){pst-calendar}//gi;

Muchas gracias, pero si cambio a

Sintáxis: [ Descargar ] [ Ocultar ]

my @coment=split(/\\begin{document}/, $archivo,2);

El problema persiste. El problema está en como defino el split()

y ojo que la sustitución hay que aplicarla a la primera variable solo, si divides en $preambulo y $documento con split luego

Leyendo perlfaq5 y revisando por los foros en inglés, me percato de que mis script está mal, funciona, pero está mal.

No tengo bien definido el script en la entrada (o variables, no lo sé :cry:

) para que haga el split() en $preambulo y $documento y efectué los cambios antes del primer \begin{document} (es decir en $preambulo), pero aun así, comenta las líneas (pero en todo el archivo).

Por ahora creo que el problema a resolver es la división y separación en $preambulo donde se quiere comentar y $documento donde no quiero comentar. De no ser factible con split(), quizás pueda leer el bloque de texto entre \RequirePackage{graphicx} y \begin{document} que siempre están presentes en test-pdf.tex y efectuar los cambios ahí (encontré algo en expresion-regular-para-identificar-una-linea-t5641.html?hilit=split), pero, creo que tendía que crear dos ficheros, y la idea es realizar los cambios y guardarlos en el mismo archivo. Se agradece el tiempo y dedicación a este "sub problema".

Cualquier ayuda, comentario y demás para arreglar el script, se agradece.

El script que utilizo (por ahora) es este:
pdfclean.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use Tie::File;
#Archivo que quieres editar
my $archivo = 'test-pdf.tex';
my ($preambulo,$documento) =split(/\\begin{document}/,$archivo,2); 
my @coment=$preambulo; 
#Usamos tie
tie @coment, 'Tie::File', $preambulo or die "No se comento ninguna linea: $!";
#Buscamos y comentamos 
foreach my $preambulo (@coment) { 
# Comenta las líneas que contienen los paquetes indicados
$preambulo =~ s/(\\usepackage){pst/\%\\usepackage{pst/i;
}#Termina la rutina
untie @coment;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Saludos y muchas, pero, muchas gracias (en especial a pvaldes por sus ideas y comentarios).

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.

por **explorer** » 2011-06-01 04:54 @246

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use File::Slurp 'slurp';
 
my $tex_file = slurp('test-pdf.tex');
 
my($primera_parte, $segunda_parte) = split /\\begin\{document\}/, $tex_file, 2;
 
print "[$primera_parte]\n";
print "[$segunda_parte]\n";
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **pablgonz** » 2011-06-01 22:21 @973

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/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.001 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.001 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.001 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...

Foro - Perl en Español

script Perl pst2pdf y pdfTeX

Re: script Perl pst2pdf y pdfTeX (solución parcial)

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

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

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?