<div dir="ltr"><br>Finalmente, to quase chorando de emoção.<br><br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use Google::Search;<br><br>my $key = &quot;ABQIAAAAAts6Q-bzHfaFjX6hknap6hQ__EPT7U-8JXQgbJaCoY-sAJLGyRTaf4_l_b9uFXyO2l0c5bsyPeMGpw&quot;;<br>
# <a href="http://code.google.com/apis/ajaxsearch/signup.html">http://code.google.com/apis/ajaxsearch/signup.html</a><br><br>my $referer = &quot;<a href="http://201.46.253.108/">http://201.46.253.108/</a>&quot;;<br># This should be a valid referer for the above key<br>
<br>my $search = Google::Search-&gt;Web(q =&gt; &quot;rock&quot;, key =&gt; $key, referer =&gt; $referer);<br>my $result = $search-&gt;first;<br>while ($result) {<br>print $result-&gt;number, &quot;100&quot;, $result-&gt;uri, &quot;\n&quot;;<br>
$result = $result-&gt;next;<br>}<br><br><div class="gmail_quote">2008/9/22 Gabriel Vieira <span dir="ltr">&lt;<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com</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;">
No $referer falta o ponto e vírgula.<br>
<br>
Mais atenção em.<br>
<br>
2008/9/22 Daniel de Oliveira Mantovani &lt;<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>&gt;:<br>
<div><div></div><div class="Wj3C7c">&gt;<br>
&gt; my $key =<br>
&gt; &quot;ABQIAAAAAts6Q-bzHfaFjX6hknap6hQ__EPT7U-8JXQgbJaCoY-sAJLGyRTaf4_l_b9uFXyO2l0c5bsyPeMGpw&quot;;<br>
&gt; # <a href="http://code.google.com/apis/ajaxsearch/signup.html" target="_blank">http://code.google.com/apis/ajaxsearch/signup.html</a><br>
&gt;<br>
&gt; my $referer = &quot;<a href="http://201.46.253.108/" target="_blank">http://201.46.253.108/</a>&quot;<br>
&gt; # This should be a valid referer for the above key<br>
&gt;<br>
&gt; my $search = Google::Search-&gt;Web(q =&gt; &quot;rock&quot;, key =&gt; $key, referer =&gt;<br>
&gt; $referer);<br>
&gt; my $result = $search-&gt;first;<br>
&gt; while ($result) {<br>
&gt; print $result-&gt;number, &quot;100&quot;, $result-&gt;uri, &quot;\n&quot;;<br>
&gt; $result = $result-&gt;next;<br>
&gt; }<br>
&gt;<br>
&gt; syntax error at 2google.pl line 6, near &quot;my &quot;<br>
&gt;<br>
&gt; Pelo que eu vi está de acordo com o manual.<br>
&gt;<br>
&gt;<br>
&gt; 2008/9/22 MrBiTS &lt;<a href="mailto:mrbits@linuxmasters.info">mrbits@linuxmasters.info</a>&gt;<br>
&gt;&gt;<br>
&gt;&gt; -----BEGIN PGP SIGNED MESSAGE-----<br>
&gt;&gt; Hash: SHA1<br>
&gt;&gt;<br>
&gt;&gt; &gt; Desculpa pelo Frame, mas esqueci de dizer.<br>
&gt;&gt; &gt; Eles fazem o navegador para M$ cheio de vulnerabilidade, não fez o do<br>
&gt;&gt; &gt; Linux,<br>
&gt;&gt; &gt; tira o API do Perl (Se for mesmo), tomara que seja só uma faze ruim,<br>
&gt;&gt; &gt; pois eu<br>
&gt;&gt; &gt; não sei o que faria sem o <a href="http://google.com" target="_blank">google.com</a>, o melhor buscador que existe.<br>
&gt;&gt; &gt; Eles cresceram 63% nos USA(se não me engano), só acho que deveriam dar<br>
&gt;&gt; &gt; atenção ao Open Source também.<br>
&gt;&gt;<br>
&gt;&gt; Não vou entrar no FLAME sobre o Chrome, mas temos duas coisas a notar<br>
&gt;&gt; quanto à API:<br>
&gt;&gt;<br>
&gt;&gt; - - Há várias delas. A API que foi descontinuada foi a SOAP<br>
&gt;&gt; - - Google tem como uma das linguagens oficiais Python, não Perl.<br>
&gt;&gt;<br>
&gt;&gt; O resto não é pertinente à lista. Melhor você se focar nos problemas do<br>
&gt;&gt; seu script.<br>
&gt;&gt;<br>
&gt;&gt; - --<br>
&gt;&gt;<br>
&gt;&gt; Um abraço<br>
&gt;&gt;<br>
&gt;&gt; .0. MrBiTs - <a href="mailto:mrbits@linuxmasters.info">mrbits@linuxmasters.info</a><br>
&gt;&gt; ..0 GnuPG &nbsp;-<br>
&gt;&gt;<br>
&gt;&gt; <a href="http://keys.cardboard.net:11371/pks/lookup?op=get&amp;search=0xAC37715A6DD1F186" target="_blank">http://keys.cardboard.net:11371/pks/lookup?op=get&amp;search=0xAC37715A6DD1F186</a><br>
&gt;&gt; 000 <a href="http://www.mrbits.com.br" target="_blank">http://www.mrbits.com.br</a><br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; -----BEGIN PGP SIGNATURE-----<br>
&gt;&gt; Version: GnuPG v1.4.9 (MingW32)<br>
&gt;&gt; Comment: Using GnuPG with Mozilla - <a href="http://enigmail.mozdev.org" target="_blank">http://enigmail.mozdev.org</a><br>
&gt;&gt;<br>
&gt;&gt; iEYEARECAAYFAkjX2tAACgkQrDdxWm3R8YaCAwCfcTuMH/lETOGKWm05cPbWtLjT<br>
&gt;&gt; 0O8An2MQ5W2yO6U86sry1Zvy+EJ7fKTW<br>
&gt;&gt; =LAtm<br>
&gt;&gt; -----END PGP SIGNATURE-----<br>
&gt;&gt; _______________________________________________<br>
&gt;&gt; SaoPaulo-pm mailing list<br>
&gt;&gt; <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
&gt;&gt; <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt; --<br>
&gt; Daniel de Oliveira Mantovani<br>
&gt; &quot;A sede pelo aprendizado é insaciável&quot;<br>
&gt; <a href="http://mantovanihouse.blogspot.com/" target="_blank">http://mantovanihouse.blogspot.com/</a><br>
&gt; ------------------------------------------------------------<br>
&gt;<br>
&gt; _______________________________________________<br>
&gt; SaoPaulo-pm mailing list<br>
&gt; <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
&gt; <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
&gt;<br>
<br>
<br>
<br>
--<br>
</div></div><font color="#888888">Gabriel Vieira<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>