-
- Publicidad
Comparar páginas Perl
Re: Comparar páginas Perl
por 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
- Mensajes: 148
- Registrado: 2011-04-05 11:14 @510
Publicidad
Re: Comparar páginas Perl
por 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?
Using perl Syntax Highlighting
- sub makeItemList {
- ....
- while ($html =~ m|<h2 ><a href="(.*?)" title="(.*?)".+?<p>(.+?)>|smg){ # Patrón por el que buscaremos las notícias.
- # print "[$1][$2][$3]\n"; # Imprimir por pantalla lo que hemos encontrao.
- push(@list,{ # La lista de los elementos (Título, Link, Descripcion).
- link => $1,
- title => $2,
- description => $3,
- fecha=>,
- });
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
- jacks
- Perlero nuevo
- Mensajes: 148
- Registrado: 2011-04-05 11:14 @510
Re: Comparar páginas Perl
por 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?
/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
- Mensajes: 148
- Registrado: 2011-04-05 11:14 @510
Re: Comparar páginas Perl
por explorer » 2011-09-02 09:03 @419
¿Qué significa "ir"?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Comparar páginas Perl
por 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
- Mensajes: 148
- Registrado: 2011-04-05 11:14 @510
Re: Comparar páginas Perl
por 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",
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
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Comparar páginas Perl
por jacks » 2011-09-03 06:40 @320
No, eso ya lo probé y no funciona, pero bueno, gracias por la idea. 
- jacks
- Perlero nuevo
- Mensajes: 148
- Registrado: 2011-04-05 11:14 @510
Re: Comparar páginas Perl
por 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
- Mensajes: 148
- Registrado: 2011-04-05 11:14 @510
Re: Comparar páginas Perl
por 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:
Using perl Syntax Highlighting
- sub makeItemList {
- ....
- while ($html =~ m|<h2 ><a href="(.*?)" title="(.*?)".+?<p>(.+?)>|smg){ # Patrón por el que buscaremos las notícias.
- # print "[$1][$2][$3]\n"; # Imprimir por pantalla lo que hemos encontrao.
- push(@list,{ # La lista de los elementos (Título, Link, Descripcion).
- link => $1,
- title => $2,
- description => $3,
- fecha=>,
- });
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
- jacks
- Perlero nuevo
- Mensajes: 148
- Registrado: 2011-04-05 11:14 @510
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 8 invitados