Foro - Perl en Español

por **magnobalt** » 2010-03-24 18:05 @795

Buenas, necesito una ayuda con una expresión regular. Resulta que tengo la salida de un texto que está delimitado por unas etiquetas que lo llamo de esta forma

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

EMPIEZA_AQUI

texto texto numeros

numero texto texto numeros

texcto numeros

texto

TERMINA AQUIColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que necesito es poder obtener el texto que está dentro de las etiquetas COMIENZA_AQUI TERMINA_AQUI; intenté hacerlo de esta forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$respuesta=~m/EMPIEZA_AQUI(.*)TERMINA_AQUI/g;
print"$1";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Creo que el problema radica en los retornos a carros pero intenté también de esta forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$respuesta=~m/EMPIEZA_AQUI(.*\n*)TERMINA_AQUI/i;
print"$1";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Le agradecería si alguien me puede ayudar, la salida original de esta leyenda es similar a esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<html>          
<body bgcolor=silver>
<h1>Este es el ejemplo de un LFI y RF</h1>
EMPIEZA_AQUI
total 33
drwxr-xr-x  2 magno magno  272 mar 24 19:48 .
drwxr-xr-x 12 magno magno 1448 mar 24 16:31 .. 
-rwxr-xr-x  1 root  root    53 mar 24 17:34 cmd1.txt
-rw-r--r--  1 root  root    87 mar 24 19:48 cmd.txt
-rw-r--r--  1 magno magno  171 mar 24 18:11 probar.pl
-rw-r--r--  1 magno magno  170 mar 24 18:11 probar.pl~
-rwxr-xr-x  1 magno magno  159 mar 24 17:35 rfi_lfi.php
-rwxr-xr-x  1 magno magno  172 mar 24 17:35 rfi_lfi.php~
-rw-r--r--  1 magno magno 1309 mar 24 19:48 rfi.pl
-rw-r--r--  1 magno magno 1310 mar 24 19:48 rfi.pl~
TERMINA_AQUI
est</body>
</html>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Muchas Gracias

Bienvenido a los foros de Perl en Español, magnobalt.

El problema es que lo que quieres conectar está repartido por varias líneas, así que depende de cómo leas el fichero, tendrás que aplicar distintas expresiones regulares.

Para el caso de leer todo el fichero de golpe, hay que indicar en la expresión regular que la cadena de texto está compuesta de varias líneas, con la opción /s:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
my $fichero;
 
open my $FILE, q[<], 'code_21426_3.txt';
 
while (my $linea = <$FILE>) {
    $fichero .= $linea;
}
 
close $FILE;
 
$fichero =~ m/EMPIEZA_AQUI\s*(.*?)\s*TERMINA_AQUI/s;
 
print "$1\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Con los \s* nos deshacemos de los caracteres espacio que no queremos capturar, que lo hacemos con (.*?), que captura todo lo que haya antes de la siguiente etiqueta.

De otra forma, yendo línea a línea, podemos usar el operador rango para extraer las líneas una a una de la parte que nos interesa.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
open my $FILE, q[<], 'code_21426_3.txt';
 
while (<$FILE>) {
 
    if ( /EMPIEZA_AQUI/ .. /TERMINA_AQUI/ ) {
        print if not /AQUI/;                   # pintamos la línea, salvo la primera y última
    }
}
 
close $FILE;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

que es la versión larga de

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
open my $FILE, q[<], 'code_21426_3.txt';
 
my $en_rango;
 
while (<$FILE>) {
 
    if ( /EMPIEZA_AQUI/ ) {
        $en_rango = 1;
        next;
    }
 
    if ( /TERMINA_AQUI/ ) {
        $en_rango = 0;
        next;
    }
 
    if ( $en_rango ) {
        print;
    }
}
 
close $FILE;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **magnobalt** » 2010-03-24 20:49 @909

Buenas, explorer, es increíble la rapidez con lo que contestaste, salí un momento, actualicé la página y ya estaba, y lo mejor es que funciona y bien explicado. Muchas Gracias, Seguiremos en contacto, seguramente.

Saludos

por **erv-Z** » 2010-03-26 10:34 @482

Tu expresión puede funcionar: solo elimina lo que te daña tu expresión regular, como puede ser los \n (nueva línea) y los \s (espacios) y seguro funcionará.

Foro - Perl en Español

Problema con expresión regular

Problema con expresión regular

Publicidad

Re: Problema con expresión regular

Re: Problema con expresión regular

Re: Problema con expresión regular

¿Quién está conectado?