Foro - Perl en Español

por **pablgonz** » 2014-01-27 05:11 @258

Hola a todos, tengo el siguiente problema, y la verdad no sé si es posible resolverlo, tengo varios archivos dentro de un directorio del siguiente tipo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using latex Syntax Highlighting

\documentclass{article}
\usepackage[left=2cm,right=2cm,top=2cm,bottom=2cm]{geometry}
\usepackage{lmodern,pstricks}
\usepackage{pstricks-add}
\usepackage{pstexample}
\begin{document}
\begin{postscript}
\psset{unit=0.5cm,runit=0.5cm}
\begin{pspicture}[showgrid=true](0,3)(10,10)
\psdot(2,4)\pscircle(7,7){2}
% Sigue una línea en blanco que no deseo borrar
 
\psCircleTangents(2,4)(7,7){2}
\pcline[nodesep=-1cm,linecolor=blue](2,4)(CircleT1)
\pcline[nodesep=-1cm,linecolor=blue](2,4)(CircleT2)
\psdots(CircleT1)(CircleT2)
% Sigue una línea en blanco que no deseo borrar
 
\uput[-80](CircleT1){T1}\uput[115](CircleT2){T2}
\end{pspicture}
\end{postscript}
\end{document}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y deseo dejarlos de la siguiente forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using latex Syntax Highlighting

\documentclass{article}
\usepackage[left=2cm,right=2cm,top=2cm,bottom=2cm]{geometry}
\usepackage{lmodern,pstricks}
\usepackage{pstricks-add}
\usepackage{pstexample}
\begin{document}
\psset{unit=0.5cm,runit=0.5cm}
\begin{pspicture}[showgrid=true](0,3)(10,10)
\psdot(2,4)\pscircle(7,7){2}
% Sigue una línea en blanco que no deseo borrar
 
\psCircleTangents(2,4)(7,7){2}
\pcline[nodesep=-1cm,linecolor=blue](2,4)(CircleT1)
\pcline[nodesep=-1cm,linecolor=blue](2,4)(CircleT2)
\psdots(CircleT1)(CircleT2)
% Sigue una línea en blanco que no deseo borrar
 
\uput[-80](CircleT1){T1}\uput[115](CircleT2){T2}
\end{pspicture}
\end{document}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

es decir, deseo eliminar (completamente) las líneas

Sintáxis: [ Descargar ] [ Ocultar ]

\begin{postscript}

y

Sintáxis: [ Descargar ] [ Ocultar ]

\end{postscript}

que siempre van después de

Sintáxis: [ Descargar ] [ Ocultar ]

\begin{document}

y antes de

Sintáxis: [ Descargar ] [ Ocultar ]

\end{document}

pero, sin eliminar las líneas en blanco que están en medio del texto, con el siguiente trozo de script (es parte de otro), logro eliminarlas, pero, me deja la línea en blanco:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $archivo (<imageDir/*.tex>) {
    open F, "<$archivo";             # abrimos 
    my @lineas = <F>;                # leemos 
    close F;
 
    open W, ">$archivo";             # abrimos 
    foreach my $linea (@lineas) {    # recorremos
        $linea =~ s/\\(begin|end)\{postscript\}//g;   # eliminamos la línea que queremos
        print W $linea;              # guardamos
            }
   close W;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

he intentado con

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$linea =~ s/\n+/\n/g;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero, esto elimina todas las líneas en blanco. Revisé los hilos del foro referido a este tema y busqué por Google un buen rato, y no he dado con la solución, ¿se pueden eliminar solo estas líneas en blanco? o usar una expresión regular para ello.

Saludos,
Pablo

#!/usr/bin/perl
use v5.16;
use autodie;                    # «Es mejor morir que regresar con deshonor» --proverbio Klingon
 
## Solución 1: cambio en memoria, con expresión regular
my $archivo;
{
    open my $ARCHIVO, 'code_36637.txt';         # Abrimos el archivo
    local $/;                                   # modo aspiradora
    $archivo = <$ARCHIVO>;
    close $ARCHIVO;
}
 
## Eliminación de lo sobrante
$archivo =~ s/
            (?|
                ( \\begin\{document\} \s+ )     # lo que debe anteceder
                \\begin\{postscript\} \s+       # esto es lo que queremos quitar
            |
                \\end\{postscript\} \s+         # esto es lo que queremos quitar
                ( \\end\{document\} \s* )       # lo que debe seguir
            )
            /$1/gmsx;
 
## Grabamos el resultado
open my $ARCHIVO, ">code_36637.txt";
print   $ARCHIVO $archivo;
close   $ARCHIVO;
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Se puede hacer de muchas otras formas. ¿Alguien más se anima?

Foro - Perl en Español

Eliminar determinada línea en blanco de varios archivos

Eliminar determinada línea en blanco de varios archivos

Publicidad

Re: Eliminar determinada línea en blanco de varios archivos

Re: Eliminar determinada línea en blanco de varios archivos

¿Quién está conectado?