[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