[SP-pm] use WWW::Mechanize

Eden Cardim edencardim at gmail.com
Wed Sep 17 13:24:53 PDT 2008


2008/9/17 Daniel de Oliveira Mantovani <daniel.oliveira.mantovani em gmail.com>:
> Boa tarde!
> Estou com dúvida de como usar o $1.
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use WWW::Mechanize;
>
> my $google = WWW::Mechanize->new();
> my $url =
> 'http://www.google.com.br/search?hl=pt-BR&q=nasa&btnG=Pesquisa+Google&meta';
> $google->get($url);
> my $busca = $google->content();
> print $1 for $busca=~ /<a href="(.*)">/;

Usar um script para automatizar buscas no google viola os termos de
uso do serviço: http://www.google.com/accounts/TOS?loc=br
O google fornece uma API pública que permite a utilização dos serviços
de busca sem violar os termos de utilização:
http://code.google.com/more

-- 
edenc.vox.com


More information about the SaoPaulo-pm mailing list