[SP-pm] use WWW::Mechanize

Daniel de Oliveira Mantovani daniel.oliveira.mantovani at gmail.com
Fri Sep 19 19:10:45 PDT 2008


Fiz o que você disse do while, e deu outro erro.

Error: no "print" mailcap rules found for type "text/x-perl"

Não tenho ideia do que seja "mailcap".


2008/9/19 Daniel de Oliveira Mantovani <daniel.oliveira.mantovani em gmail.com>

> #!/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/
> ------------------------------------------------------------
>



-- 
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/740eb20a/attachment.html>


More information about the SaoPaulo-pm mailing list