Existe uma API pronta para pesquisas no Google:<br><a href="http://search.cpan.org/~rkrimen/Google-Search-0.02/lib/Google/Search.pm">http://search.cpan.org/~rkrimen/Google-Search-0.02/lib/Google/Search.pm</a><br><br>[]'s<br>
<br><div class="gmail_quote">2009/2/25 Renan Rangel <span dir="ltr"><<a href="mailto:rvr777@gmail.com">rvr777@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Olá,<br><br>Talvez você queira dar uma olhada no WWW::Mechanize, acredito que vai ser mais fácil de você passar parâmetros, preencher formulários, fazer GET/POST, etc...<br><br><a href="http://search.cpan.org/perldoc?WWW::Mechanize" target="_blank">http://search.cpan.org/perldoc?WWW::Mechanize</a><br>
<br>-- <br>Renan Rangel<br><br><div class="gmail_quote">2009/2/25 Denilson Silva <span dir="ltr"><<a href="mailto:denilsongv2@hotmail.com" target="_blank">denilsongv2@hotmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div></div><div class="Wj3C7c">
<div>
<br>
Oi pessoal,<br>
<br>
To começando em Perl , e preciso realizar a seguinte tarefa:<br>
<br>
Fazer uma consulta automatizada na web, por exemplo: como faço pra fazer uma consulta no google através de <br>
um script Perl ?<br>
<br>
Estou tentando usar a LWP , ja consigo acessar as páginas "html" com o script abaixo, mas como faço pra passar parâmetros a um script do site?<br>
<br>
Desde já obrigado!<br>
<br>
----------------------------------------<br>
#!usr/bin/perl<br><br>
use strict;<br>use warnings;<br>use LWP::UserAgent;<br>
<br>
my $url = "<a href="http://www.google.com.br" target="_blank">http://www.google.com.br</a>";<br>
my $agent = new LWP::UserAgent();<br>
my $request = new HTTP::Request( 'GET' => $url );<br>
my $response = $agent->request( $request );<br>
<br>
if ( $response->is_success() ) {<br> print( $response->content() );<br> }<br> else {<br> print( "Error: " . $response->status_line() . "\n" );<br> }<br>
-------------------------------------------<br><br>
<br>Denilson S. de Andrade<br>Graduando em Ciência da Computação <br> UFV - Universidade Federal de Viçosa <br><a href="mailto:denilson.andrade@ufv.br" target="_blank">denilson.andrade@ufv.br</a><br><br><br><br><br><br><hr>
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! <a href="http://www.livemaps.com.br/index.aspx?tr=true" target="_blank">Experimente já!</a></div>
<br></div></div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br><br>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>
----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>