Foro - Perl en Español

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

¿Qué error sale? ¿Cuántos bytes tiene?

Ese fichero lo leerá el módulo para llevar un control de los titulares pasados, para no repetirlos en el siguiente RSS que genere.

Con el eval(), yo lo he leído sin problemas. No es más que un fichero de texto.

Hola explorer. He estado terminando el programa principal con todos los pequeños programas que hemos comentado en el foro y creo que más o menos está bien:



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?

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


Sigo sin entender porqué usas una base de datos para comprobar si ha habido cambios... 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.


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:
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";
# ...
}

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?

¿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";

}

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

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.

Main.pl:



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

¿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

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