[SP-pm] use WWW::Mechanize

[Daniel de Oliveira Mantovani]

#!/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="http:\/\/(.+?)">/;

Desculpa pela demora.
A coisa que não entra na minha cabeça é eu ponho print $1, e imprime tudo
que não está entre os parênteses.

2008/9/19 André Garcia Carneiro <andre.garcia.carneir em terra.com.br>

> Daniel...
>
>
> No while que eu enviei. Tira o 'm'. Esse é um problema. Mas devem ter mais
> no código, então manda pra mim, se
> puder é claro, caso contrário posta aqui. Não posso entrar no IRC agora,
> mas assim q tiver uma brecha aqui no
> meu trabalho eu te mando a correção. Prometo testar dessa vez...rsrsr!
>
>
> Cheers!
>
>
> ---------- Cabeçalho original -----------
>
> De: saopaulo-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
> Para: "saopaulo-pm" saopaulo-pm em mail.pm.org
> Cópia:
> Data: Fri, 19 Sep 2008 15:43:47 -0300
> Assunto: Re: [SP-pm] use WWW::Mechanize
>
> >
> > Falha minha. Esqueci disso...
> >
> >
> > E nao testei o código também.
> >
> >
> > Sorry!
> >
> >
> > ---------- Cabeçalho original -----------
> >
> > De: saopaulo-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
> > Para: saopaulo-pm em mail.pm.org
> > Cópia:
> > Data: Fri, 19 Sep 2008 14:49:28 -0300
> > Assunto: Re: [SP-pm] use WWW::Mechanize
> >
> > > Você pode fazer regexes com m/ regexp aqui / .
> > >
> > > Também pode com m{ .... } , m@ ..... @ ,  m( .... ) , etc..
> > >
> > > Mas se você tá usando m/ ..... / , o que acontece quando tem mais um
> "/" no
> > > meio da regex ? O perl vai achar que a regexp acabou ali. Então, ou
> usa-se
> > > outros delimitadores, ou se escapa a "/", com uma "\", pra ele não
> achar que
> > > a "/" terminou a regexp:
> > >
> > > m/<a href="http:\/\/(.+?)"/sig
> > >
> > > ou
> > >
> > > m{<a href="http://(.+?)"}sig
> > >
> > > ou até mesmo
> > >
> > > m;<a href="http://(.+?)";sig # se você tá participando de um concurso
> de
> > > código ofuscado :-)
> > >
> > > []s
> > > Wendel
> > >
> > > 2008/9/19 Daniel de Oliveira Mantovani <
> daniel.oliveira.mantovani em gmail.com>
> > >
> > > > while($string =~ m/< a href="http://(.+?)"/sig){
> > > >     print "\n".$1; #Agora vou pegar todos!
> > > > }
> > > >
> > > >
> > > >
> > >
> >
> > --
> > André Garcia Carneiro
> > Developer(Perl/PHP)
> > Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org
> >
> > _______________________________________________
> > SaoPaulo-pm mailing list
> > SaoPaulo-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/saopaulo-pm
> >
>
> --
> André Garcia Carneiro
> Developer(Perl/PHP)
> Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
Daniel de Oliveira Mantovani
"A sede pelo aprendizado é insaciável"
http://mantovanihouse.blogspot.com/
------------------------------------------------------------
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080919/383379a2/attachment.html>