Foro - Perl en Español

por **explorer** » 2013-10-31 12:01 @542

¡El Perl v5.8.8 es del año 2006!

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

> perldoc -T perlhist|fgrep 5.8.8
                 5.8.8-RC1     2006-Ene-20
                 5.8.8         2006-Ene-31
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

willbender escribiste:El problema es que no puedo actualizar la versión de Perl del servidor en donde correrá este perl debido a que ya hay perl colocados y que funcionan ahí y, pues, definitivamente no deseo entrar en conflictos con los demás programas.

Perl es uno de los lenguajes que más compatibilidad hacia atrás posee. Los cambios a realizar siempre son mínimos. Yo incluso tengo código escrito del 2003 que sigue funcionando con la última versión, la v5.18.1.

Si no puedes actualizar el Perl, o usar perlbrew para instalar una versión más moderna, pues entonces quita o comenta la segunda línea, y cambia los say() por un print() más un "\n" al final.

El uso de utf8::all es para gestionar caracteres tildados. Si no lo puedes instalar, quita o comenta la cuarta línea, y cambia todos los caracteres tildados de las variables del programa ($regex_país => $regex_pais).

¿Qué expresión regular quieres modificar?

#!/usr/bin/env perl
#use v5.14;
use autodie;
#use utf8::all;
use File::Slurp;
 
## Leemos el archivo
my $html = read_file('/home/sergio/ticket25852/filetofix.html');
 
#Definición de lo que buscamos
my $regex_pais   = qr{  ^
                            <A[ ]name=\d+></a>            .+? \n
                            <b> \s* (\?<pais>.+?) \s* </b> .+? \n
                            Last[ ]Updated:[ ]            .+? \n
                       }mix;
my $regex_eol    = qr{\s*? <br> \s*? \n}ix;
my $regex_cargo  = qr{^ (?<!<) (\?<cargo>.+?)  $regex_eol }mix;
my $regex_nombre = qr{^ (?<!<) (\?<nombre>.+?) $regex_eol }mix;
my $regex_staff  = qr{(\?<staff>(?:$regex_cargo $regex_nombre)+)}x;
 
## Buscamos
 
while ($html =~ /$regex_pais $regex_staff/mxg) {
 
    my($pais, $staff) = ($+{pais}, $+{staff});
    print "pais: [$pais]\n";
 
    while ($staff =~ /$regex_cargo $regex_nombre/gx) {
        print "\t[$+{cargo}]", "\t[$+{nombre}]\n";
        }
    }
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-10-31 14:36 @650

Vale, ya sé lo que pasa: el hash especial %+ solo es válido a partir de Perl v5.10.

Además, en las expresiones regulares has puesto varios caracteres '\', que no son correctos.

Esta es la versión para Perl viejos

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
use autodie;
use File::Slurp;
 
## Leemos el archivo
my $html = read_file('code_35850.html');
 
## Definición de lo que buscamos
my $regex_pais   = qr{
                        ^ <A[ ]name=\d+></a> .+? \n
                        ^ <b> (.+?) \s* </b> .+? \n
                        ^ Last[ ]Updated:[ ] .+? \n
                     }mix;
my $regex_item   = qr{^ (?<!<) (.+?) \s*? <br> \s*? \n }mix;
my $regex_staff  = qr{((?:$regex_item $regex_item)+)   }x;
 
## Buscamos
while ($html =~ /$regex_pais $regex_staff/mxg) {
 
    my($pais, $staff) = ($1, $2);
 
    print "País: [$pais]\n";
 
    while ($staff =~ /$regex_item $regex_item/gx) {
        print "\t[$1]", "\t[$2]", "\n";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **willbender** » 2013-10-31 15:11 @674

Excelente. Funciona de maravilla. ¡Muchísimas gracias!

Foro - Perl en Español

Obtener información de un archivo html

Re: Obtener información de un archivo html

Publicidad

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

¿Quién está conectado?