Foro - Perl en Español

por **jacks** » 2011-04-11 10:05 @462

Hola, escribí este tema en avanzado pero me recomendaron ponerlo aquí para obtener diferentes respuestas.

Os pongo un ejemplo de lo que quiero conseguir: "Imaginar que quiero mantenerme informado de las noticias que aparecen en una pagina deportiva pero solo me interesan las noticias de fútbol, con lo cual proporcionando la dirección URL a mi programa en Perl me gustaría generar información RSS con el título parte de la noticia y el link. Al principio había pensado en descargarme la página y compararla descargándomela más tarde también para encontrar diferencias."

Me gustaría saber más o menos cómo podría generar el RSS. Gracias.

Hay varios módulos en Perl que facilitan ese trabajo. Solo tienes que entrar en CPAN y buscar por RSS.

Dos de los más curiosos, y que coinciden con tu tarea, son XML::RSS::FromHTML y XML::RSS::FromHTML::Simple.

El segundo te permitirá hacer cosas más rápidas, pero solo extrae los enlaces que tiene una página y, como texto, el propio texto del enlace.

El primero, en cambio, hace que sea responsabilidad tuya la extracción de la información desde la página HTML, por lo que podrás filtrar mejor qué es lo que quieres que luego salga como RSS.

por **jacks** » 2011-04-12 11:10 @507

Muchas gracias, explorer.

por **jacks** » 2011-04-15 06:33 @314

Hola. El módulo XML::RSS::FromHTML no está en el repositorio y me lo bajé de la página. Lo he descomprimido y, la verdad, no puedo instalarlo porque me dice que no encuentra el paquete. Me he leído los tutoriales de ppm pero la verdad no encuentro manera de hacerlo.

por **explorer** » 2011-04-15 07:51 @368

Supongo que habrás visto mi guía de instalación y uso del PPM.

Según trouchelle.com, en los resultados de instalación del módulo, hay algunos problemas. No me dices qué versión de Perl estás usando, pero he supuesto que es el Perl v5.12, en Windows.

Si ves la matriz de compatibilidad, verás que Windows no es un buen sistema operativo para desarrollar :wink:

Lo raro es que lo he mirado, y no veo muy bien qué error es...

Yo lo acabo de instalar en mi Linux OpenSuSE, y me sale que ha tenido que instalar, a mayores, los módulos HTML::Parser (que ha necesitado compilación), XML::RSS, DateTime::Format::Mail, DateTime::Format::W3CDTF, Test::Manifest.

Según estos mensajes de error, si consigues instalar los módulos HTML::Parser v3.68 y el XML::RSS v1.48, sí que podrías instalar la última versión de XML::RSS::FromHTML, pero en Perl v5.10.

La única versión estable que se puede instalar sin problemas es: con Perl v5.8, instalando la versión XML::RSS::FromHTML v0.02, que, sospecho, va a ser muy antigua.

En la mayoría de los casos, veo que son errores que se pueden intentar solventar, modificando los ficheros de instalación, pero no he llegado a verlos, así que no puedo afirmarlo con rotundidad.

Voy a ver si hago algo con el módulo XML::RSS::FromHTML que acabo de instalar...

por **jacks** » 2011-04-15 11:39 @527

La verdad que yo prefiero hacerlo en Linux Ubuntu pero es que necesito que el .exe que tengo que hacer corra en Windows con lo cual tendré que solucionar los problemas que encuentre. De todas formas, en Windows tengo instalada la versión Perl v5.8. Quizás deba actualizarla a la v5.10.

por **explorer** » 2011-04-19 17:51 @786

Bueno, este es mi experimento.
Con este programa:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
# Análisis del diario Marca
# Joaquín Ferrero. 20110620
#
use strict;
use warnings;
 
use utf8;                               # este programa está escrito en codificación utf8
 
package Marca;
 
use Encode qw'decode';
use base 'XML::RSS::FromHTML';
 
sub init {
    my $self = shift;
    # configuración
    $self->name('Marca');
    $self->url('http://www.marca.com/futbol/1adivision.html');
}
 
sub defineRSS {
    my $self = shift;
    my $xmlrss  = shift;
    # definiciones del RSS generado
    $xmlrss->channel(
        title => 'Fuente de titulares de Marca.com, Fútbol 1ª div.',
        description => 'Titulares de la 1ª división de Fútbol en España',
    );
}
 
sub makeItemList {
    my $self = shift;
    my $html = shift;
    # interpretamos el código HTML y crear con ello una lista
    my @list;
 
    $html = decode('iso-8859-15', $html);
 
    while ($html =~ m|<h3><a href="(.+?)" title="(.+?)".+?<p>(.+?)<|smg){
        push(@list,{
            link        => $1,
            title       => $2,
            description => $3,
        });
    }
    return \@list;
}
 
sub addNewItem {
    my $self = shift;
    my ($xmlrss,$eachItem) = @_;
    # crear cada elemento del RSS usando el método XML::RSS->add_item
    $xmlrss->add_item(
            title       => $eachItem->{title      },
            link        => $eachItem->{link       },
            description => $eachItem->{description},
    );
}
 
 
#### nuestro programa principal
package main;
#use Marca;
 
my $rss = Marca->new();
$rss->update;
 
__END__
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Este programa crea dos ficheros:

Marca.xml, con el RSS generado
Marca.cache, con la memoria de lo generado, para cuando haya que generarlo de nuevo (histórico de entradas)

La salida Marca.xml es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?>
 
<rdf:RDF
 xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
 xmlns="http://purl.org/rss/1.0/"
 xmlns:content="http://purl.org/rss/1.0/modules/content/"
 xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/"
 xmlns:dc="http://purl.org/dc/elements/1.1/"
 xmlns:syn="http://purl.org/rss/1.0/modules/syndication/"
 xmlns:admin="http://webns.net/mvcb/"
>
 
<channel rdf:about="">
<title>Fuente de titulares de Marca.com, F&#xFA;tbol 1&#xAA; div.</title>
<link></link>
<description>Titulares de la 1&#xAA; divisi&#xF3;n de F&#xFC;tbol en Espa&#xF1;a</description>
<items>
 <rdf:Seq>
  <rdf:li rdf:resource="/2011/04/19/futbol/equipos/atletico/1303193748.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/equipos/mallorca/1303228475.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/equipos/atletico/1303240637.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/equipos/zaragoza/1303233632.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/equipos/valencia/1303216739.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/equipos/atletico/1303226866.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/1adivision/1303207287.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/1adivision/1303233471.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/equipos/sevilla/1303208236.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/equipos/almeria/1303220951.html" />
  <rdf:li rdf:resource="/2011/04/19/futbol/equipos/athletic/1303218087.html" />
 </rdf:Seq>
</items>
</channel>
<item rdf:about="/2011/04/19/futbol/equipos/atletico/1303193748.html">
<title>Gil Mar&#xED;n: &#x26;quot;Ag&#xFC;ero no ir&#xE1; al Madrid ni aunque paguen la cl&#xE1;usula&#x26;quot;</title>
<link>/2011/04/19/futbol/equipos/atletico/1303193748.html</link>
<description>Gil Mar&#xED;n: &#x26;quot;Ag&#xFC;ero no ir&#xE1; al Madrid ni aunque paguen la cl&#xE1;usula&#x26;quot;</description>
</item>
<item rdf:about="/2011/04/19/futbol/equipos/mallorca/1303228475.html">
<title>El Mallorca quiere un lleno contra el Getafe</title>
<link>/2011/04/19/futbol/equipos/mallorca/1303228475.html</link>
<description>El Mallorca quiere un lleno contra el Getafe</description>
</item>
...
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tengo dudas de que los acentos estén bien generados, pero el caso es que el grueso del trabajo está hecho.

Ya solo queda arrancar este programa de forma periódica, una vez al día, por ejemplo.

Editado: arreglado un error en línea 41.

por **jacks** » 2011-04-27 06:47 @324

Increíble. Muchas gracias, explorer. La verdad, estos días estuve intentando hacerlo mediante el código que proporciona en la página de CPAN y había bastantes pasos que no entendía el porqué había que hacerlo así.

Muchas gracias de verdad.

por **jacks** » 2011-04-28 11:34 @523

Hola, explorer. He intentado ejecutar el programa pero no tenía instalado el XML::RSS::FromHTML. Lo he instalado con:

perl -MCPAN -e "install Modulo"

y le he dado a yes en todos los paso que me pedía instalar los módulos que se requerían pero una vez instalados ejecuto el programa y me dice lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Base class package "XML::RSS::FromHTML" is empty.

    (Perhaps you need to 'use' the module which defines that package first,

    or make that module available in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .).

 at generarRSS.txt line 19

BEGIN failed--compilation aborted at generarRSS.txt line 19.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Comparar páginas Perl

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?