Foro - Perl en Español

por **explorer** » 2011-07-12 17:33 @773

1) ¿Qué cosas salen? Si no pones el resultado del ejemplo, es difícil de saberlo. La exp. reg. <p>(.+?)< captura lo que hay después de un <p>, pero no está garantizado que el '<' final corresponda a un </p>.

2) Pues no tengo ni idea de dónde sale el <a>... Podría estar en otra parte del documento.

<h2>Access control and identification</h2>
                                                        <p class="preamble">Security monitoring and access control without physical contact – made possible by RFID-enabled ASSA ABLOY products. </p>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

quiero poner lo que hay entre <h2>..</h2> como título y lo que hay entre <p>... como descripción. Quizás si hago mención alguna etiqueta más que esté delante de <h2> me saque el título en vez de ese <a href...

Y otra cosa:

1) Quiero sacar lo que hay entre <h2> como título pero me lo saca vacío, y la coma desplazada al siguiente párrafo. ¿Cómo puedo hacerlo?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while ($html =~ m{<BR>.+?<h2>(.+?)<span .+?>.+?<h3>.+?<p>(.+?)<}smg) {          
 
        # print "[$1][$2][$3]\n";                                       
       push(@list,{                             
        
            Link        => "",                                          
            title       => $1,
            description => $2,
        });
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = [

          {

            'title' => '

',

            'description' => 'CompX Security Products is the leader in custom design and manufacturing of keyless entry systems for a large variety 

of applications. We utilize the latest technological advances such as: ',

            'Link' => ''

          }

        ];

    }
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<BR>
 
<h2>Be in control with CompX eLock<span style="vertical-align:super;font-size:50%">&reg;</span></h2>
 
<h3>
<p>CompX Security Products is the leader in custom design and manufacturing of keyless entry systems for a large variety 
of applications. We utilize the latest technological advances such as: <a href="/products-elockkp.html">Keypads</a>, 
<a href="/products-elockmag.html">Magnetic Stripe</a>, and HID <a href="/products-elockpr.html">Proximity</a> to provide unique 
locking solutions to many industries. Just a few of the markets we currently serve include: Tool Storage, Medication Carts, 
Hospitals, Pharmacies, Refrigeration, Server Racks, File Cabinets, Lockers, Patient Records, Supply Cabinets, etc.</p>
 
</h3>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-07-13 12:55 @579

A mí sí que me funciona...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Modern::Perl;
use autodie;
use File::Slurp;
 
my $html = read_file('code_27068_3.txt');
 
#say $html;
 
while ($html =~ m{<BR>.+?<h2>(.+?)<span .+?>.+?<h3>.+?<p>(.+?)<}smg) {
 
    say "Título: [$1]";
    say "Descripción: [$2]";
}
 
__END__
Título: [Be in control with CompX eLock]
Descripción: [CompX Security Products is the leader in custom design and manufacturing of keyless entry systems for a large variety 
of applications. We utilize the latest technological advances such as: ]
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **jacks** » 2011-07-14 10:29 @478

Hola. Para intentar solucionar el problema que tengo a la hora de pasarle los parámetros de un programa a otro he hecho un script de prueba:

(prueba.pm):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/perl/bin
 
package prueba;
use strict;
use warnings;
 
sub mostrar {
        
        my($no,$se);
 
        $no = $_[0];
 
        $se = $_[1];
        
        printf ("El nombre es:  \n");
 
        printf ("$no\n");
 
        printf ("El sector es:  \n");
 
        printf ("$se\n");
 
}
 
my($nombre,$sector);
 
$nombre = $_[0];
 
printf ("El nombre es:  \n");
 
printf ("$nombre");
 
$sector = $_[1];
 
printf ("El sector es:  \n");
 
printf ("$sector");
 
&mostrar($nombre,$sector);
 
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(probar.pl):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/perl/bin
 
use strict;
use warnings;
use prueba;
 
my($nombre,$sector);
 
$nombre = "Pedro";
 
$sector = "Competencia";
 
my $pru = prueba->new($nombre,$sector);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

He estado mirando las preguntas de otras personas en el foro y he leído
lo de usar qx() o system(). He probado también la respuesta de otro usuario y se trataba de recoger el parámetro con $ARGV[0] pero me da el siguiente error:

por **explorer** » 2011-07-14 10:37 @484

El mensaje de error dice que dentro del paquete prueba no hay ningún método llamado new(), y así es. Solo hay uno llamado mostrar().

por **jacks** » 2011-07-17 09:57 @456

Hola explorer. He intentado pasarle los parámetros al init() de esta manera pero me dice lo que pone en la imagen (en este caso es la línea 34).

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/perl/bin 
 
use strict;
use warnings;                           # Módulos requeridos por el sistema.
use utf8;                               # Este programa está escrito en codificación utf8 
package Marca;
use Encode qw'decode';                  
use base 'XML::RSS::FromHTML';
 
my($nombre,$link);
 
$nombre = "Actualizar";
 
$link = "http://www.marca.com";
 
&init($nombre,$link);
 
# Subrutina  Init:
 
sub init {
 
    my($no,$li);
 
    $no = $_[0];
 
    $li = $_[1];
 
    my $self = shift;
 
    # configuración
 
    $self->name($no);                                                   # Titulo del RSS.
    $self->url($li);                    # Dirección de la  página web.
    $self->passthru({encoding => 'iso-8859-15', encode_output => 0 });          # Condiciones de la salida
 
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-07-17 18:09 @798

Es muy complicado programar así, con el método de prueba-error... Muy difícil de que encuentres una solución.

Esto es lo que pasa:
* en la línea 18 estás llamando a una función (NO al método) llamada init() que está unas líneas más abajo, con dos argumentos, 'Actualizar' y una URL.

* en las líneas 26 y 28 pasas el contenido de los argumentos a las variables $no y $li.

* en la línea 30, estás sacando (con shift()) de la lista de argumentos pasados a init(), el primer valor (que era 'Actualizar') y lo guardas en $self. Las cosas empiezan a torcerse...

* en la línea 34, escribes $self->name($no). $self no es un objeto, sino una cadena de caracteres llamada 'Actualizar'. Le estás pidiendo a Perl que busque un paquete llamado 'Actualizar' y que ejecute un método en él llamado name(). Y como eso no existe, casca.

* las líneas 35 y 36 también fallarán si Perl no encuentra ese paquete llamado 'Actualizar'.

por **jacks** » 2011-07-18 04:51 @244

Buff, entonces con lo que me has dicho entiendo que ¿no voy a poder pasarle los links ni los nombres automáticamente?

Menudo fallo. Entonces todo lo que he mostrado no me sirve para nada. ¿Tendría que buscar otra forma de generar RSS? ...

por **jacks** » 2011-07-18 07:59 @374

Hola, he conseguido solucionarlo pero me da un error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub setFirstName {
 
     my ( $self, $name ) = @_;
     $self->{name} = $name if defined($name);
     printf ($self->{name});
     return $self->{name};
}
 
sub setLink {
 
     my ( $self, $url ) = @_;
     $self->{url} = $url if defined($url);
        printf ("estoy\n");
        printf ("$url\n");
     return $self->{url};
}
 
sub getName{
 
        my $self = @_;
        return $self->{name};
 
}
 
# Subrutina  Init:
 
sub init {
 
    my $self = shift;
 
    # configuración
 
    $self->passthru({encoding => 'iso-8859-15', encode_output => 0 });          # Condiciones de la salida
 
}
 
#### Programa principal:
 
package main;
 
#use Marca;                      # No es necesario incluirle, porque está antes
 
my $rss = Marca->new();          # Crear nuevo Marcar.
 
$rss->setFirstName('El_nombre');
 
$rss->setLink('la_pagina_web');
 
printf ($rss->getName());
 
$rss->update;                    # Actualizar RSS.
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El Error:

por **explorer** » 2011-07-18 10:38 @484

Ya sé cómo pasarle argumentos a init()...

Si miramos el código fuente del módulo, tenemos esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub new {
        my $self = shift;
        my $p = bless({},$self);
        # set default values
        $p->name('myrss');
        $p->cacheDir('.');
        $p->feedDir('.');
        $p->minInterval(300); # in seconds
        $p->maxItemCount(30);
        $p->passthru({});
        $p->updateStatus('update not executed yet');
        # initialize properties (for sub-classes)
        $p->init(@_);
        return $p;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es el método que se encarga de crear el objeto XML::RSS::FromHTML. Y observa la línea 41: es ahí donde se llama al método init(). Y lo que más nos interesa: le está pasando como argumento el valor de @_, que está almacenando todos los argumentos que le hubiéramos pasado a new().

Es decir: todos los argumentos que le pasamos al método new() son pasados al método init(). Por lo tanto, podrías escribir la parte del programa algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $pagina (@paginas) {             # @paginas contiene toda la información de todos los enlaces a analizar
    my $rss = Modulo->new($pagina->{nombre}, $pagina->{enlace});
    $rss->update;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y en el Modulo, modificar el init() para que sea algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub init {
    my $self = shift;
    # configuración
    $self->name($_[0]);
    $self->url ($_[1]);
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De esta manera, ya le pasamos el nombre y la URL al módulo.

Pero... tenemos ahora otro problema... y es el método defineRSS(). A este método también le tenemos que personalizar para que podamos definir el título y descripción de todo el canal RSS. Y aquí tropezamos: no hay forma sencilla de pasarle los argumentos.

Entonces... se me ha ocurrido que podemos hacer algo 'alegal', consistente en 'ampliar' los atributos del objeto XML::RSS::FromHTML, incorporando el título y la descripción del canal.

Entonces, cambiamos una vez más la llamada a new() para que tengo dos argumentos más:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $rss = Modulo->new(
        $pagina->{nombre},
        $pagina->{enlace},
        $pagina->{titulo},
        $pagina->{descripcion},
    );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De esta manera, pasamos a init() todos los valores. Ahora modificamos init() dentro de Modulo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub init {
    my $self = shift;
    # configuración
    $self->name($_[0]);
    $self->url ($_[1]);
    $self->{titulo}      = $_[2];
    $self->{descripcion} = $_[3];
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Con esto, estamos creando dos nuevos atributos del objeto, e inicializándolos con los valores del canal RSS. Ahora solo queda modificar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub defineRSS {
    my $self = shift;
    my $xmlrss  = shift;
    # definiciones del RSS generado
    $xmlrss->channel(
        title       => $self->{titulo},
        description => $self->{descripcion},
    );
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y ya está: las definiciones del canal RSS las obtenemos de los atributos del objeto que guardamos antes en init().

Esto es algo 'alegal' :shock:

porque no es recomendable crear/acceder a los atributos de un objeto, de esta forma tan directa.

Pero bueno... Perl es lo suficientemente flexible como para permitir hacer estas piruetas. :lol:

Foro - Perl en Español

Comparar páginas Perl

Re: Comparar páginas Perl

Publicidad

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

¿Quién está conectado?