<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Galera, mais uma vez obrigado. <br>Tinha quase certeza que era um erro bobo... mais bobo ainda é o programador aqui esquecendo de ponto e virgula kkkk. quase joguei o notebook na parede kkkkk<br>Deu tudo certo, vou continuar o trabalho.<br>Se alguém tiver alguma sugestão sobre esses modulos web, outras documentações, exemplos, por favor, mandem a url.<br>Como disse, estou pretendendo desenvolver este tipo de aplicação constantemente por aqui e estou estudando isso no momento.<br>Obrigado a todos e um abraço !!!<br><br>Matheus - Viçosa/MG<br><br><br><br>--- Em <b>seg, 11/4/11, Samir Cury <i><samir.cury.siqueira@cern.ch></i></b> escreveu:<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>De: Samir Cury <samir.cury.siqueira@cern.ch><br>Assunto: Re: [Rio-pm] modulos para web<br>Para:
"Perl Mongers Rio de Janeiro" <rio-pm@pm.org><br>Data: Segunda-feira, 11 de Abril de 2011, 11:56<br><br><div id="yiv2081686565">Tenho quase certeza que ha um modulo que acha esses erros bobos.<div><br></div><div>Talvez o Perl::Critic</div><div><a rel="nofollow" target="_blank" href="http://search.cpan.org/%7Eelliotjs/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 rel="nofollow" target="_blank" href="http://search.cpan.org/%7Eelliotjs/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="yiv2081686565gmail_quote">2011/4/11 Marcio Ferreira <span dir="ltr"><<a rel="nofollow" ymailto="mailto:marciodesouzaferreira@gmail.com" target="_blank" href="/mc/compose?to=marciodesouzaferreira@gmail.com">marciodesouzaferreira@gmail.com</a>></span><br>
<blockquote class="yiv2081686565gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div><div class="yiv2081686565gmail_quote">Eu rodei o código e funfou na boa, detalhe que falta uma vírgula :P</div><div class="yiv2081686565gmail_quote">
<br></div><div class="yiv2081686565gmail_quote">se persistir problemas, roda em debug[<a rel="nofollow" target="_blank" href="http://bit.ly/ifQC0h">http://bit.ly/ifQC0h</a>]</div>
<div class="yiv2081686565gmail_quote"><br></div><div class="yiv2081686565gmail_quote"><div class="yiv2081686565im">2011/4/11 Matheus Lucas <span dir="ltr"><<a rel="nofollow" ymailto="mailto:malsi2@yahoo.com.br" target="_blank" href="/mc/compose?to=malsi2@yahoo.com.br">malsi2@yahoo.com.br</a>></span><br></div><blockquote class="yiv2081686565gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div><div></div><div class="yiv2081686565h5">
<table border="0" cellpadding="0" cellspacing="0"><tbody><tr><td style="font: inherit;" valign="top">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 color="#cc0000" size="6">;</font><br>
<br>
my $content = "<a rel="nofollow" target="_blank" href="http://cliveg.bu.edu/research/amazon-2010/english.html">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="yiv2081686565im">_______________________________________________<br>
Rio-pm mailing list<br>
<a rel="nofollow" ymailto="mailto:Rio-pm@pm.org" target="_blank" href="/mc/compose?to=Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a rel="nofollow" target="_blank" href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></div></blockquote></div><br></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a rel="nofollow" ymailto="mailto:Rio-pm@pm.org" target="_blank" href="/mc/compose?to=Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a rel="nofollow" target="_blank" href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br></div>
</div><br>-----Anexo incorporado-----<br><br><div class="plainMail">_______________________________________________<br>Rio-pm mailing list<br><a ymailto="mailto:Rio-pm@pm.org" href="/mc/compose?to=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></div></blockquote></td></tr></table>