<table cellspacing="0" cellpadding="0" border="0" ><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<br>
<br>
my $content = "http://cliveg.bu.edu/research/amazon-2010/english.html";<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>
<br>
Matheus<br>
<br>
</td></tr></table>