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