Acho que o melhor modulo e este mesmo, nao sei se voce colou certo, mas vi um erro por auqi :<div><br></div><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">use WWW::Mechanize<br>
</span><br></div><div>nao seria :</div><div><br></div><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">use WWW::Mechanize;</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">?</span></div><div>
<span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">De qualquer forma parece que o erro e em outro lugar. Ja vi acontecer que se o servidor nao reconhecer o UserAgent da uma resposta que a gente nao quer, mas tambem nao parece ser isso.</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><meta http-equiv="content-type" content="text/html; charset=utf-8">Mas estao ai duas coisas que podem ser checadas.</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">O erro parece que a resposta esta mal-formada/nao esta la. Ou mesmo que voce precisa especificar algo a mais antes de fazer o GET(?), nao tenho certeza.</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">Voce pode usar um modulo muito bom para debug (que talvez ja conheca) chamado Data::Dumper para ver se ha algum conteudo na resposta. Ou mesmo na saida dos metodos que voce esta usando do Mechanize.</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">Outra sugestao e que voce cheque o conteudo cru da resposta para ver se e o que voce quer, antes de pedir para parsear e pegar os links.</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">Abs</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span><div class="gmail_quote">
2011/4/11 Matheus Lucas <span dir="ltr"><<a href="mailto:malsi2@yahoo.com.br">malsi2@yahoo.com.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<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<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>_______________________________________________<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>