• Publicidad

Comparar páginas Perl

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Re: Comparar páginas Perl

Notapor jacks » 2011-07-20 14:07 @630

Yo creo que el problema está al pasarle el valor de $x a $y porque me muestra todo lo que tiene $x pero en cambio si imprimo la $y no me deja. Creo que es por el eval(). Pero claro, si quitamos el eval() si el .cache no contiene nada, fallará, ¿no?
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Publicidad

Re: Comparar páginas Perl

Notapor explorer » 2011-07-20 14:38 @651

Si el caché no contiene nada, $y no tendrá ningún valor.

Prueba a hacer un

use Data::Dumper;
print Dumper($y);

y así sales de dudas. Si no sale nada, es que read_file no ha leído ningún fichero, o el fichero estaba vacío.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Comparar páginas Perl

Notapor jacks » 2011-07-20 15:03 @669

La respuesta ha sido:

$VAR1 = undef;

pero el caso es que si imprimo $x me sale todo lo que tiene .cache.
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor explorer » 2011-07-20 15:28 @686

Eso indica que el fichero caché está mal, pues no ha sido posible interpretarlo por eval().

Edita el fichero caché y comprueba que están puestas todas las llaves, los corchetes, las comas, y un punto y coma al final.

O saca una copia del fichero, y prueba con otra, en la que vayas reduciendo las entradas, hasta que encuentres la que está provocando el fallo.

Si eval() ha detectado algún error, habrá quedado registrado en la variable $@.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Comparar páginas Perl

Notapor jacks » 2011-07-20 15:42 @696

Vale he probado solo dejando el primer RSS y me da el mismo error:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
$VAR1 = [
          {
            'link' => '/2011/07/20/futbol/equipos/barcelona/1311156778.html',
            'title' => 'Xavi: "Este año soy más optimista sobre el fichaje de Cesc"',
            'description' => 'Xavi Hernández fue el primer jugador del Barcelona en hablar esta temporada en rueda de prensa y dijo, entre otras cosas, que es más optimista con respecto al fichaje de Cesc que en años anteriores, porque el Arsenal parece dispuesto a vender.</p'
          }
        ];
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


He imprimido por pantalla la $@ y me dice:

"Global symbol "$VAR1" requires explicit package name at (eval 915) line 1.
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor explorer » 2011-07-20 16:24 @725

Jaja... es porque tienes puesto el modo 'strict'.

O lo quitas, o pruebas con

my $y = eval "my $x";

pero no lo he probado y no sé si funcionará.

Editado: pues sí, funciona poniendo el 'my '
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Comparar páginas Perl

Notapor jacks » 2011-07-20 17:06 @754

¡¡Valeee, ahora sííí!! :D

Estaba probando mil cosas posibles y era eso jeje. Ok, muchas gracias.
Ahora para leerlos todos incremento la variable $i hasta que no queden datos, ¿no?

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my $i=0;
  2. $y->[$i]->{description};
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


EDITADO:

He mirado por el foro pero no creo que con este archivo funcione. He leído que para leer hasta el que se acaben las líneas, hacer:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. open RADAR, "<radar_total.txt" or die "ERROR: No puedo leer el archivo: $!\n";
  2.  
  3. while (<RADAR>) {
  4.     chomp;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


pero he probado y con este archivo no se puede. ¿Cómo leo hasta final de líneas?
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor jacks » 2011-07-24 18:38 @818

¿No sabrías decirme entonces si habría alguna manera de hacer el bucle?
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor jacks » 2011-07-29 11:33 @523

¿Alguien podría ayudarme para saber cómo acabar el bucle?
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor explorer » 2011-07-29 14:40 @652

Pero, ¿de qué bucle hablas?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

AnteriorSiguiente

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 12 invitados