[Rio-pm] Automação WEB
Denilson Silva
denilsongv2 em hotmail.com
Quarta Fevereiro 25 15:34:04 PST 2009
Oi pessoal,
To começando em Perl , e preciso realizar a seguinte tarefa:
Fazer uma consulta automatizada na web, por exemplo: como faço pra fazer uma consulta no google através de
um script Perl ?
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?
Desde já obrigado!
----------------------------------------
#!usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
my $url = "http://www.google.com.br";
my $agent = new LWP::UserAgent();
my $request = new HTTP::Request( 'GET' => $url );
my $response = $agent->request( $request );
if ( $response->is_success() ) {
print( $response->content() );
}
else {
print( "Error: " . $response->status_line() . "\n" );
}
-------------------------------------------
Denilson S. de Andrade
Graduando em Ciência da Computação
UFV - Universidade Federal de Viçosa
denilson.andrade em ufv.br
_________________________________________________________________
Windows Live Messenger. O melhor em multitarefa.
http://www.microsoft.com/windows/windowslive/products/messenger.aspx
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090225/7c8c10f8/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm