<div dir="ltr"><br>&quot;eu estou apadrinhando o aprendizado dele. Só não sei se isso<br>
é uma coisa boa ou ruim. ;)&quot;<br>Você não vai se arrepender mestre. xD<br><br>Ricardo não tinha outro jeito mais simples, eu tinha salvo no PC mas perdi.<br><br>Queria também que alguém me respondesse a dúvida do $1.<br>
Obrigado.<br><br><div class="gmail_quote">2008/9/17 Luis Motta Campos <span dir="ltr">&lt;<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt;</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 class="Ih2E3d">Eden Cardim wrote:<br>
&gt; 2008/9/17 Daniel de Oliveira Mantovani &lt;<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>&gt;:<br>
&gt;&gt; Boa tarde!<br>
&gt;&gt; Estou com dúvida de como usar o $1.<br>
&gt;&gt; #!/usr/bin/perl<br>
&gt;&gt;<br>
&gt;&gt; use strict;<br>
&gt;&gt; use warnings;<br>
&gt;&gt; use WWW::Mechanize;<br>
&gt;&gt;<br>
&gt;&gt; my $google = WWW::Mechanize-&gt;new();<br>
&gt;&gt; my $url =<br>
&gt;&gt; &#39;<a href="http://www.google.com.br/search?hl=pt-BR&amp;q=nasa&amp;btnG=Pesquisa+Google&amp;meta" target="_blank">http://www.google.com.br/search?hl=pt-BR&amp;q=nasa&amp;btnG=Pesquisa+Google&amp;meta</a>&#39;;<br>

&gt;&gt; $google-&gt;get($url);<br>
&gt;&gt; my $busca = $google-&gt;content();<br>
&gt;&gt; print $1 for $busca=~ /&lt;a href=&quot;(.*)&quot;&gt;/;<br>
&gt;<br>
&gt; Usar um script para automatizar buscas no google viola os termos de<br>
&gt; uso do serviço: <a href="http://www.google.com/accounts/TOS?loc=br" target="_blank">http://www.google.com/accounts/TOS?loc=br</a><br>
&gt; O google fornece uma API pública que permite a utilização dos serviços<br>
&gt; de busca sem violar os termos de utilização:<br>
&gt; <a href="http://code.google.com/more" target="_blank">http://code.google.com/more</a><br>
&gt;<br>
<br>
</div>Eden,<br>
<br>
Você está fazendo a coisa certa, eu não estou questionando isso. Mas por<br>
favor tente ajudar o Daniel um pouco mais. :) Ele não trabalha na área,<br>
e está construindo o script com finalidade didática.<br>
<br>
Fora isso, eu estou apadrinhando o aprendizado dele. Só não sei se isso<br>
é uma coisa boa ou ruim. ;)<br>
<br>
Te devo uma /Chimay/ /Blauw/ por isso, cobrável em qualquer lugar do<br>
planeta em que a gente se encontre. ;)<br>
<br>
Putamplexos.<br>
<font color="#888888">--<br>
Luis Motta Campos is a software engineer,<br>
Perl Programmer, foodie and photographer.<br>
</font><div><div></div><div class="Wj3C7c">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">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><br><br clear="all"><br>-- <br>Daniel de Oliveira Mantovani<br>&quot;A sede pelo aprendizado é insaciável&quot;<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
------------------------------------------------------------<br>
</div>