<div dir="ltr">Fiz o que você disse do while, e deu outro erro.<br><br>Error: no "print" mailcap rules found for type "text/x-perl"<br><br>Não tenho ideia do que seja "mailcap".<br><br><br><div class="gmail_quote">
2008/9/19 Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div dir="ltr"><div class="Ih2E3d">#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use WWW::Mechanize;<br><br></div><div class="Ih2E3d">my $google = WWW::Mechanize->new();<br>my $url = '<a href="http://www.google.com.br/search?hl=pt-BR&q=nasa&btnG=Pesquisa+Google&meta" target="_blank">http://www.google.com.br/search?hl=pt-BR&q=nasa&btnG=Pesquisa+Google&meta</a>';<br>
$google->get($url);<br>my $busca = $google->content();<br></div>print $1 for $busca=~ /<a href="http:\/\/(.+?)">/;<br><br>Desculpa pela demora.<br>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.<br>
<br><div class="gmail_quote">2008/9/19 André Garcia Carneiro <span dir="ltr"><<a href="mailto:andre.garcia.carneir@terra.com.br" target="_blank">andre.garcia.carneir@terra.com.br</a>></span><div><div></div><div class="Wj3C7c">
<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Daniel...<br>
<br>
<br>
No while que eu enviei. Tira o 'm'. Esse é um problema. Mas devem ter mais no código, então manda pra mim, se<br>
puder é claro, caso contrário posta aqui. Não posso entrar no IRC agora, mas assim q tiver uma brecha aqui no<br>
meu trabalho eu te mando a correção. Prometo testar dessa vez...rsrsr!<br>
<br>
<br>
Cheers!<br>
<div><br>
<br>
---------- Cabeçalho original -----------<br>
<br>
De: saopaulo-pm-bounces+andre.garcia.carneir=<a href="http://terra.com.br" target="_blank">terra.com.br</a>@<a href="http://pm.org" target="_blank">pm.org</a><br>
</div>Para: "saopaulo-pm" <a href="mailto:saopaulo-pm@mail.pm.org" target="_blank">saopaulo-pm@mail.pm.org</a><br>
Cópia:<br>
Data: Fri, 19 Sep 2008 15:43:47 -0300<br>
<div><div></div><div>Assunto: Re: [SP-pm] use WWW::Mechanize<br>
<br>
><br>
> Falha minha. Esqueci disso...<br>
><br>
><br>
> E nao testei o código também.<br>
><br>
><br>
> Sorry!<br>
><br>
><br>
> ---------- Cabeçalho original -----------<br>
><br>
> De: saopaulo-pm-bounces+andre.garcia.carneir=<a href="http://terra.com.br" target="_blank">terra.com.br</a>@<a href="http://pm.org" target="_blank">pm.org</a><br>
> Para: <a href="mailto:saopaulo-pm@mail.pm.org" target="_blank">saopaulo-pm@mail.pm.org</a><br>
> Cópia:<br>
> Data: Fri, 19 Sep 2008 14:49:28 -0300<br>
> Assunto: Re: [SP-pm] use WWW::Mechanize<br>
><br>
> > Você pode fazer regexes com m/ regexp aqui / .<br>
> ><br>
> > Também pode com m{ .... } , m@ ..... @ , m( .... ) , etc..<br>
> ><br>
> > Mas se você tá usando m/ ..... / , o que acontece quando tem mais um "/" no<br>
> > meio da regex ? O perl vai achar que a regexp acabou ali. Então, ou usa-se<br>
> > outros delimitadores, ou se escapa a "/", com uma "\", pra ele não achar que<br>
> > a "/" terminou a regexp:<br>
> ><br>
> > m/<a href="http:\/\/(.+?)"/sig<br>
> ><br>
> > ou<br>
> ><br>
> > m{<a href="http://(.+?)"}sig<br>
> ><br>
> > ou até mesmo<br>
> ><br>
> > m;<a href="http://(.+?)";sig # se você tá participando de um concurso de<br>
> > código ofuscado :-)<br>
> ><br>
> > []s<br>
> > Wendel<br>
> ><br>
> > 2008/9/19 Daniel de Oliveira Mantovani <<a href="mailto:daniel.oliveira.mantovani@gmail.com" target="_blank">daniel.oliveira.mantovani@gmail.com</a>><br>
> ><br>
> > > while($string =~ m/< a href="http://(.+?)"/sig){<br>
> > > print "\n".$1; #Agora vou pegar todos!<br>
> > > }<br>
> > ><br>
> > ><br>
> > ><br>
> ><br>
><br>
> --<br>
> André Garcia Carneiro<br>
> Developer(Perl/PHP)<br>
> Member of "São Paulo Perl Mongers" - <a href="http://sao-paulo.pm.org" target="_blank">http://sao-paulo.pm.org</a><br>
><br>
> _______________________________________________<br>
> SaoPaulo-pm mailing list<br>
> <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
><br>
<br>
--<br>
André Garcia Carneiro<br>
Developer(Perl/PHP)<br>
Member of "São Paulo Perl Mongers" - <a href="http://sao-paulo.pm.org" target="_blank">http://sao-paulo.pm.org</a><br>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div></div></div><br><br clear="all"><br>-- <br><div class="Ih2E3d">Daniel de Oliveira Mantovani<br>"A sede pelo aprendizado é insaciável"<br><a href="http://mantovanihouse.blogspot.com/" target="_blank">http://mantovanihouse.blogspot.com/</a><br>
------------------------------------------------------------<br>
</div></div>
</blockquote></div><br><br clear="all"><br>-- <br>Daniel de Oliveira Mantovani<br>"A sede pelo aprendizado é insaciável"<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
------------------------------------------------------------<br>
</div>