<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
</style>
</head>
<body class='hmmessage'>
<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">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">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='_new'>Experimente já!</a></body>
</html>