• Publicidad

Hacer una búsqueda de otra manera

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Hacer una búsqueda de otra manera

Notapor netsoul » 2008-07-04 07:23 @349

Buenas, disculpenme por la molestia. Gracias digo y soy grato.

Resulta que estoy queriendo hacer una búsqueda en cualquier sitio, ya sea en Google, Yahoo, Live, etc., pero de una manera sencilla que use módulos HTTP::Request::Common qw(POST) y LWP::UserAgent sin usar WWW:Search (es porque tuve problemas con este último).

Mi idea es hacer por el método POST (enviando dato de búsqueda) y como producto el resultado devuelto que luego lo filtraré.

Buscando, tratando de montar algo, hice esto parcialmente:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
my $ua = LWP::UserAgent->new(
agent => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)';
my $req = POST 'http://www.google.com';
my $respuesta = $ua->request($req)->as_string;
print $respuesta,"\n";
 
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

Hasta aquí me tranqué y no sabría cómo continuar.

Gracias ante todo y perdón si lo he posteado en el lugar equivocado.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091

Publicidad

Notapor explorer » 2008-07-04 07:34 @357

A mí con GET sí que me funciona:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl

use HTTP::Request::Common qw(GET);
use LWP::UserAgent;
my $ua = LWP::UserAgent->new(
    agent => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt');
my $req = GET 'http://www.google.es/search?source=ig&hl=es&rlz=&=&q=perl&btnG=Buscar+con+Google&meta=&aq=f';
my $respuesta = $ua->request($req)->as_string;
print $respuesta,"\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Quizás Google tenga filtrado el método POST...

P.D. Tenías un error en una comilla del 'agent'.
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

Notapor netsoul » 2008-07-04 07:39 @361

Gracias, gracias, sé que es mucho pedirte pero si suponemos que el buscador acepta POST, el código sería más largo, ¿no?.
Gracias.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091

Notapor explorer » 2008-07-04 08:07 @380

Pues no... no mucho más... en lugar de escribir las opciones en una sola línea como en el GET, en el POST habría que ponerlas como elementos de un array.
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

Notapor netsoul » 2008-07-04 08:11 @382

Gracias. No sé cuántos euros ya debo por la información.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091


Volver a Intermedio

¿Quién está conectado?

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

cron