Na verdade seria um outro tratamento de erros que eu não levei em consideração, ou seja, seria bom colocar os dois...<br><br><br><br>Cheers!<br><br><div class="gmail_quote">2008/11/28 Thiago Rondon <span dir="ltr"><<a href="mailto:thiago@aware.com.br">thiago@aware.com.br</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>
Oops, $mech->uri($link->href) ?<br><font color="#888888">
<br>
Thiago Rondon escreveu:</font><div><div></div><div class="Wj3C7c"><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Estou entrando pela janela na conversa...<br>
<br>
Mas, não seria mais correto:<br>
<br>
my $reslink = $mech->get($link->href) if $mech->uri($link) ?<br>
<br>
-Thiago Rondon<br>
<br>
Andre Carneiro escreveu:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Não, tô sendo paranóico. Se bem que as vezes eu preciso realmente usar pq se por um acaso $link não for HTML::Element, perl irá parar a execução do script. Isso já aconteceu comigo.<br>
<br>
Cheers!<br>
<br>
2008/11/28 Márcio Vitor <<a href="mailto:cromo.jml@gmail.com" target="_blank">cromo.jml@gmail.com</a> <mailto:<a href="mailto:cromo.jml@gmail.com" target="_blank">cromo.jml@gmail.com</a>>><br>
<br>
2008/11/28 Andre Carneiro <<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a><br>
<mailto:<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a>>>:<br>
> foreach my $link(@links){<br>
> my $reslink = $mech->get($link->href) if $link;<br>
><br>
> }<br>
<br>
É mesmo necessário o 'if $link' ?<br>
<br>
Márcio Vitor<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a> <mailto:<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">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>
<br>
<br>
<br>
<br>
-- <br>
André Garcia Carneiro<br>
Analista/Desenvolvedor Perl<br>
<br>
------------------------------------------------------------------------<br>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">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>
</blockquote>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">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>
<br>
<br>
</blockquote>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">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>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br><br>