• 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-08-29 15:15 @677

Entonces, con eval() aunque dé el error, no se parará la ejecución del programa, porque lo capturará, ¿no?
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Publicidad

Re: Comparar páginas Perl

Notapor jacks » 2011-08-31 10:14 @468

Hola explorer. Se me olvidó hacer que el programa recogiese la fecha en la que se publicó la noticia. Para ello se usaría la función getDateTime() pero lo que no sé es dónde hay que usarla exactamente y luego habría que añadir un apartado más en makeitem list que sería fecha, ¿no?

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. sub makeItemList {
  2.         ....
  3.         while ($html =~ m|<h2 ><a href="(.*?)" title="(.*?)".+?<p>(.+?)>|smg){          # Patrón por el que buscaremos las notícias.
  4.  
  5.         # print "[$1][$2][$3]\n";                                                       # Imprimir por  pantalla lo que hemos encontrao.
  6.  
  7.         push(@list,{                                                                    # La lista de los elementos (Título, Link, Descripcion).
  8.                                                                        
  9.             link        => $1,                                                                                                                         
  10.             title       => $2,
  11.             description => $3,
  12.             fecha=>,
  13.         });
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor jacks » 2011-09-02 08:07 @380

Hola explorer. Quería preguntarte una cosa sobre las direcciones web que obtengo con el programa. Verás, el link que obtengo por ejemplo es :

/en/com/News/News/2011/News-2011/ASSA-ABLOY-locks-to-equip-acclaimed-veterinary-school/

y claro, para poder acceder a ese contenido había pensado que juntándolo con el link de la página podría acceder a ello. Pero he visto que no. ¿Sabrías, por casualidad, si hay algún método para poder ir al contenido de ese link?
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor explorer » 2011-09-02 09:03 @419

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

Re: Comparar páginas Perl

Notapor jacks » 2011-09-02 09:10 @424

Perdón. Me refería que el link ese hace referencia a una noticia con lo cual al clicar en ella debería apuntar a la noticia en concreto, ¿no?
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor explorer » 2011-09-02 14:25 @642

Pues sí, tienes que convertir los enlaces a absolutos.

Quizás sea muy sencillo arreglarlo, uniendo el enlace al URL, justo en el momento de guardar el {link}.

link => "$URL/$1",
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Comparar páginas Perl

Notapor jacks » 2011-09-03 06:40 @320

No, eso ya lo probé y no funciona, pero bueno, gracias por la idea. :wink:
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor jacks » 2011-09-05 10:44 @489

Por cierto, lo de $URL en el post anterior no funciona; pone que requiere un paquete especifico.
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

Re: Comparar páginas Perl

Notapor pvaldes » 2011-09-05 13:34 @607

instala el paquete...
pvaldes
Perlero nuevo
Perlero nuevo
 
Mensajes: 129
Registrado: 2011-01-22 12:56 @580

Re: Comparar páginas Perl

Notapor jacks » 2011-09-06 09:31 @438

No tengo que instalar nada lo que pasa que dice que la variable no está declarada. Lo que quiero saber es si tengo que declararla yo y otra cosas es que quiero conseguir extraer la fecha cuando se publicó la noticia con la sub getdateTime() con lo que tengo dudas si tengo que añadir un campo fecha en este código y dónde usar la llamada a getDateTime:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1.    sub makeItemList {
  2.             ....
  3.             while ($html =~ m|<h2 ><a href="(.*?)" title="(.*?)".+?<p>(.+?)>|smg){          # Patrón por el que buscaremos las notícias.
  4.      
  5.             # print "[$1][$2][$3]\n";                                                       # Imprimir por  pantalla lo que hemos encontrao.
  6.      
  7.             push(@list,{                                                                    # La lista de los elementos (Título, Link, Descripcion).
  8.                                                                            
  9.                 link        => $1,                                                                                                                        
  10.                 title       => $2,
  11.                 description => $3,
  12.                 fecha=>,
  13.             });
  14.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
jacks
Perlero nuevo
Perlero nuevo
 
Mensajes: 148
Registrado: 2011-04-05 11:14 @510

AnteriorSiguiente

Volver a Básico

¿Quién está conectado?

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

cron