Tenho quase certeza que ha um modulo que acha esses erros bobos.<div><br></div><div>Talvez o Perl::Critic</div><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><a href="http://search.cpan.org/~elliotjs/Perl-Critic-1.115/lib/Perl/Critic.pm">http://search.cpan.org/~elliotjs/Perl-Critic-1.115/lib/Perl/Critic.pm</a></div>
<div><br></div><div><a href="http://search.cpan.org/~elliotjs/Perl-Critic-1.115/lib/Perl/Critic.pm"></a></div><div>Ou talvez o bom e velho :</div><div><br></div><div>use strict;</div><div>use warnings;</div><div><br></div>
<div>tambem ajude bastante ou mesmo resolva.</div><div><br></div><div>Abs</div><div><br><div class="gmail_quote">2011/4/11 Marcio Ferreira <span dir="ltr"><<a href="mailto:marciodesouzaferreira@gmail.com">marciodesouzaferreira@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div class="gmail_quote">Eu rodei o código e funfou na boa, detalhe que falta uma vírgula :P</div><div class="gmail_quote">
<br></div><div class="gmail_quote">se persistir problemas, roda em debug[<a href="http://bit.ly/ifQC0h" target="_blank">http://bit.ly/ifQC0h</a>]</div>

<div class="gmail_quote"><br></div><div class="gmail_quote"><div class="im">2011/4/11 Matheus Lucas <span dir="ltr"><<a href="mailto:malsi2@yahoo.com.br" target="_blank">malsi2@yahoo.com.br</a>></span><br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div></div><div class="h5">

<table cellspacing="0" cellpadding="0" border="0"><tbody><tr><td valign="top" style="font:inherit">Ola minha gente !<br>
Estou tentando rodar esse trexo de codigo, a fim de pegar os links de uma pagina...<br>
<br>
use WWW::Mechanize<font size="6" color="#CC0000">;</font><br>
<br>
my $content = "<a href="http://cliveg.bu.edu/research/amazon-2010/english.html" target="_blank">http://cliveg.bu.edu/research/amazon-2010/english.html</a>";<br>
<br>
my $mech = WWW::Mechanize->new();<br>
$mech->get($content);<br>
my @links = $mech->links();<br>
<br>
for my $link ( @links ) {<br>
<br>
  printf "%s, %\n", $link->text, $link->url;<br>
<br>
}<br>
<br>
e esta dando a seguinte mensagem...<br>
Missing base argument at /usr/local/share/perl/5.10.1/HTTP/Response.pm line 93<br>
<br>
Alguem pode me dizer o que esta acontecendo? estou rodando este codigo 
como root, ja rodei como usuario comum e deu a mesma coisa.<br>
Estou tentando entender como funciona esses modulos para web, aqui no 
meu serviço o povo pede muito para capturar links, nomes de links, 
fotos, etc... de certas paginas. <br>
Acaba o pessoal fazendo na mao mesmo, acho que posso automatizar criando pequenos robozinhos.<br>
Estou começando a brincar com esses pacotes do tipo, lwp::simple ,  HTML::LinkExtor, etc...<br>
Por acaso, alguem ai ja fez algo parecido ? só pra eu ter uma ideia mesmo...<br>
Abraço a todos !<br><font color="#888888">
<br>
Matheus<br>
<br>
</font></td></tr></tbody></table><br></div></div><div class="im">_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></div></blockquote></div><br></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br></div>