Foro - Perl en Español

por **jacks** » 2011-07-30 05:47 @282

El que recorre toda la hoja .cache. Usé el método que puse ahí arriba pero no me funcionó. Por eso preguntaba.

#!c:/perl/bin 
 
package main;
 
use warnings;                          # Módulos requeridos por el sistema.
use utf8;                              # Este programa está escrito en codificación utf8
use Encode qw'decode';
use base 'XML::RSS::FromHTML';
use DBI;
use ConectarDBRSS;
use autodie;
use Modern::Perl;
use ConectarDBabrir;
use Update;
 
sub comprobarDB {
    my $db = $_[0];
 
    my @databases = DBI->data_sources(
        "mysql", { host => 'localhost', user => 'root', password => 'password' }
    );                                 # Cogemos la lista de bases de datos presentes en el sistema.
 
    my $base_datos = $db;              # Introducimos el nombre de la  base de datos que queremos comprobar
                                       # que está  en la variable $base_datos.
 
    my $dsn = "DBI:mysql:$base_datos"; # Conformamos el DSN de esa base de datos.
 
    unless ( $dsn ~~ @databases ) {    # Si el $dsn no está entre las @databases la creamos.
 
        my $drh = DBI->install_driver( # Carga del controlador mysql
            "mysql"
        );
 
        my $rc = $drh->func(           # Creamos la base de datos.
            "createdb", $base_datos, 'localhost', 'root', 'password', 'admin'
        );                             
    }
}
 
sub crearTabla {
    my $conexion = $_[1];              # Desde la llamada a la subrutina le pasamos la  conexión a  la base de
                                       # datos. Desde la llamada  sería la  segunda  variable  que le pasamos.
 
    my $tabla = $_[0];
 
    eval {
        $conexion->do(
          "CREATE TABLE $tabla (link VARCHAR(200), titulo VARCHAR(300), descripcion VARCHAR(500), codigo INTEGER)"
        );
    };                                 # Hacemos un eval, cuya función será dejar que la tabla se cree o no
                                       # dependiendo de si existe, y desde la conexión a la  base de datos
                                       # crearemos la tabla,  si  no existe  ya.
 
    if ($@) {
        printf("La tabla existe \n");  # Se captura el error si la tabla existe y
                                       # nos dice que "La  tabla  existe".
    }
}
 
sub insertar {
    printf("estoy  en insert");
 
    my ( $conexion, $sth, $tabla, $link, $descripcion, $titulo );   # Variables que usaremos para recoger los
                                                                    # parámetros de entrada desde la llamada a
                                                                    # la subrutina.
 
    $titulo = $_[3];
    $descripcion = $_[4];
    $conexion = $_[2];      # Desde la llamada a la subrutina le pasamos la  conexión a  la base de datos.
                            # Desde la llamada  sería la  cuarta variable  que le pasamos.
 
    $tabla = $_[1];
    $link = $_[0];
    printf("$link\n");
 
    $sth = $conexion->prepare("INSERT INTO $tabla(link,titulo,descripcion) VALUES (?,?,?,?)")
        or die( "Couldn't prepare statement: " . $conexion->errstr )
        ;                   # Desde la conexión a la base de datos  insertamos en la  tabla, cuyo nombre le
                            # pasamos desde la llamada  a la subrutina en la  posición tercera, la información
                            # que después le proporcionamos. Si no existe la tabla  sale con la  funcion "die".
 
    $sth->execute( $link, $titulo, $descripcion )
        or die( "Couldn't execute statement: " . $sth->errstr )
        ;                   # se procesa la orden ejecutar insertando los valores pasados en la llamada
                            # a la subrutina en las posiciones primera y segunda. Si no se puede insertar
                            # sale con la  función "die".
 
    $sth->finish;
}
 
&comprobarDB("abrir");                               # Llamada a subrutina CompararDB.
 
my ( $conexion, $conexion2, $sth, $cont, $tabla );   # Declaración de las  variables que utilizaremos a continuación.
 
$conexion = ConectarDBabrir->connect();              # Conectamos con la  base de datos desde el paquete
                                                     # ConectarDB y lo dejamos en la variable $dbh.
 
$sth = $conexion->prepare("show tables") or die( "Couldn't prepare statement: " . $conexion->errstr );
$sth->execute() or die( "Couldn't execute statement: " . $sth->errstr );
 
my ( $no, $li, $ti, $de );
while ( my $row = $sth->fetchrow_arrayref ) {
 
    $tabla = join( "\t", @$row );
    print("$tabla\n");
 
    $cont = $conexion->prepare("SELECT * FROM $tabla");   # desde la conexión a la
                                                          # base de datos cogemos la
                                                          # información seleccionada
                                                          # mediante el SELECT de la
                                                          # base de datos.
 
    $cont->execute();         # Ejecutamos lo que hemos preparado en la linea anterior.
 
    while ( my $ref = $cont->fetchrow_hashref() ) {
                               # Con este bucle mientras  quede algún valor en  $ref
                               # de los que seleccionamos de la base de datos y mientras
                               # la variable encontrado sea "0" seguirá el bucle. Cuando
                               # uno  de los dos falle se saldrá.
 
        $li = $ref->{'link'};  # Comparamos la  primera  variable que le pasamos
                               # desde la  llamada a la subrutina  con el link
                               # cogido desde la base de datos.  Si son iguales
                               # quiere decir que el link existe con lo cual ponemos
                               # la  variable encontrado a "1" y salimos del bucle.
 
        $no = $ref->{'nombreEmpresa'};
        $cont->finish();
        $ti = "Fuente de noticias";
        $de = "titulares de las actuaciones";
        my $rss = Update->new( $no, $li, $ti, $de );
        my $hasNewItem = $rss->update;
        if ($hasNewItem) {
            print "RSS se ha  actualizado con nuevos elementos";
            return 1;
        }
        else {
            print $rss->updateStatus;
            return undef;
        }
 
        &comprobarDB("Rss");
        $conexion2 = ConectarDBRSS->connect();     #  Conectamos con la  base de datos
                                                   # desde el paquete ConectarDB y lo dejamos en la variable $dbh.
 
        my ( $archivo, $copia_archivo, $link, $titulo, $descripcion );
        $archivo = read_file("Marca.cache");
        $copia_archivo = eval $archivo;
        my $cont = 0;
        &crearTabla( $tabla, $conexion2 );
        while (<$archivo>) {
            $link = $copia_archivo->[$cont]->{link};
            print $copia_archivo->[$cont]->{link};
            $titulo = $copia_archivo->[$cont]->{title};
            print $copia_archivo->[$cont]->{title};
            $descripcion = $copia_archivo->[$cont]->{description};
            print $copia_archivo->[$cont]->{description};
            &insertar( $link, $tabla, $conexion2, $titulo, $descripcion );
            $cont = $cont + 1;
        }
 
        $conexion2->disconect;
    }
}
$conexion->disconect;
 
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

Las dudas que tengo son las siguientes:

1.- He declarado dos variables ($conexion, $conexion2) para que me permita conectarme a las dos bases de datos a la vez. ¿Está bien así o sería mejor conectarme a la primera base de datos cargar los datos en una Hash y después conectarme a la segunda base de datos?

2.- A partir de la línea 136 lo que hago es leer el .cache y pasárselo a la variable $copia_archivo. Pero lo que te pregunté en el anterior post es: ¿cómo recorro hasta el final la variable $copia_archivo? ¿Está bien con el while() y utilizando el contador para acceder a cada una de las noticias?

por **explorer** » 2011-08-18 13:59 @624

Las líneas 63 a 73 se pueden resumir en estas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my ( $link, $tabla, $conexion, $titulo , $descripcion) = @_;    # Variables que usaremos para recoger los
                                                                    # parámetros de entrada desde la llamada a
                                                                    # la subrutina.
    my $sth;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sigo sin entender porqué usas una base de datos para comprobar si ha habido cambios... :cry:

La misión del módulo es justamente esa: generar un nuevo RSS a partir de los nuevos cambios, y ya se encarga él de saber cuáles son. :roll:

En fin, el programa es tan largo y complejo que no veo la forma de decirte si eso funciona o no. Lo mejor es que lo pruebes paso a paso (lo ejecutas hasta un punto y ves si lo ha hecho bien. Si no, se arregla, si sí, se avanza un poco más).

La respuesta a la preguntas: :arrow:

1.- Si funciona, sí.

2.- En cuanto al fichero caché... ese fichero ya lo has leído en la línea 147, así que no hay porqué volverlo a leer en la 151...

Si el eval() de la línea 148 ha funcionado, lo que hay en la variable $copia_archivo es la estructura hash de array que almacena los titulares recuperados. Veo que usas print() para asegurarte de que lo estás haciendo bien. La forma de recorrer los distintos valores, como es un array, se puede hacer de forma consecutiva, con un for():

for my $entrada (@{$copia_archivo}) {
print $entrada->{description}, "\n";
# ...
}

por **jacks** » 2011-08-18 15:04 @669

Lo que pasa que quiero mantener un historico. Es decir quiero almacenar los RSS para cuando quiera hacer copia del historial.

Con este codigo entonces recorreria todo el archivo no?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$archivo = read_file("Marca.cache"); 
 
$copia_archivo = eval $archivo;  
 
&crearTabla($tabla,$conexion2);
 
for my $entrada (@{$copia_archivo}) {
                
        $link = $entrada->{link};
        print $entrada->{link}, "\n";
                
        $titulo  = $entrada->{title};   
        print $entrada->{title}, "\n";
                
        $descripcion = $entrada->{description};
        print $entrada->{description}, "\n";
                
                             &insertar($link,$tabla,$conexion2,$titulo,$descripcion);
                
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **jacks** » 2011-08-26 05:57 @289

¿Por qué cuando recorro el archivo me lee tanto el título como la descripción pero no me lee nunca el link? Ya sé que hay algunas noticias que no tienen link pero las que tienen no me los lee.

$VAR1 = [
{
'title' => '<a href="/en/com/Site/Search/">Search</a>',
'description' => 'In our Newsroom you can find the latest news and press releases, our videos and images for download.',
'Link' => ''
},
{
'title' => 'In our Newsroom you can find the latest news and press releases, our videos and images for download.->Opening doors to life video – protecting water',
'description' => '',
'Link' => '/en/com/News/News/2011/News-2011/Opening-doors-to-life-video--protecting-water/'
},
{
'title' => '24 Aug 2011->KESO to install locking systems at all Kaufland hypermarkets',
'description' => '',
'Link' => '/en/com/News/News/2011/News-2011/KESO-to-install-locking-systems-at-all-Kaufland-hypermarkets/'
}
];

Los leo de la siguiente manera:

my $x = read_file("AssaAbloy_NewsRoom.cache");

my $y = eval $x;

for my $entrada (@{$y}) {

print "Link: ",$entrada->{link}, "\n";

print "Titulo: ",$entrada->{title}, "\n";

print "Descripcion: ",$entrada->{description}, "\n";

}

por **explorer** » 2011-08-26 09:36 @441

Yo veo que en la estructura de datos, 'Link' está escrito con la primera letra en mayúsculas...

por **jacks** » 2011-08-26 11:06 @504

Hola, tengo un problemilla que, con solucionarlo, ya tendré acabado el programa pero no sé si es grave. Cuando ejecuto el código, como te dije en otro post, me sale un error a la hora de generar los RSS de las páginas pero el archivo .cache lo genera correctamente. El problema es que cuando se ejecuta la llamada al programa de actualizar.pm desde el programa main.pl, surge el error, genera el .cache pero el programa principal main.pl desde el que se ha realizado la llamada deja de funcionar, no continua haciendo las demás tareas. Se me ocurrió crear una subrutina para, de esta manera, igual si se ejecuta el programa Actualizar.pm en la subrutina, al dar el error saldría de la subrutina pero continuaría ejecutando el programa main.pl. No sé si estará bien explicado pero si no es así lo volveré a explicar. :wink:

Main.pl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/perl/bin
 
use DBI;
use ConectarDBRSS;
use autodie;
use Data::Dumper;
use File::Slurp;
use Update;
 
sub actualizar{
    
    my ($empresa, $conexion, $url)= @_;
    
    my $titulo = "Fuente de noticias";
 
    my $descripcion = "Titulares de las actualizaciones";
 
    my $rss = Update->new($empresa,$url,$titulo,$descripcion);
    
    my $hasNewItem = $rss->update;
                     
}
sub introducir ...
 
sub comprobarDB ...
 
sub  tabla ...
 
&comprobarDB("rss");
    
my $conexion = ConectarDBRSS->connect();
 
my  $empresa = "AssaAbloy";
 
my $url = "http://www.assaabloy.com/en/com/News/";
 
&actualizar($empresa, $conexion, $url);
 
&tabla($empresa, $conexion);
 
my($archivo,$copia_archivo,$link,$title,$description);
 
$archivo = read_file("AssaAbloy.cache"); 
 
$copia_archivo = eval $archivo;
 
for my $entrada (@{$copia_archivo}) {
                
        $link = $entrada->{Link};
        print $entrada->{Link}, "\n";
                
        $title  = $entrada->{title};    
        print $entrada->{title}, "\n";
                
        $description = $entrada->{description};
        print $entrada->{description}, "\n";
                
        &introducir($link,$empresa,$conexion,$title,$description);
                
}
                
$conexion->disconnect;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y el error es el que ya puse, pero vamos, que lo genera el .cache. Será por algo de tildes o no sé:

por **jacks** » 2011-08-29 15:04 @669

¿Alguien podría ayudarme y decirme cómo poder arreglar eso para que no pare el programa aunque de error? No sé capturar el error igual o no sé. Alguna idea por favor

por **explorer** » 2011-08-29 15:14 @676

Si se trata de capturar errores, lo puedes hacer con el eval(), como ya está explicado unos mensajes antes...

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?