<div dir="ltr"><p>> Faz sentido, pois além de comentar os 'fecha blocos', também sempre executo o 'exit' com algum valor ;) .... já sofro muito com programas que terminam sem código algum.</p><p></p><p>É eu sempre digo isso pro Viegas, digo que os codigos no exit() sao importante para os sysadmins, tbm sempre coloco algum codigo, apesar que 0 é um deles hehehehhehe, e so descubri isso pq peguei um codigo Perl que dava exit() no bloco CHECK mas o programa continuava executando, achei curioso, testei no Perl 5.8.8 e 5.10 (RH e Slackware) o comportamento é o mesmo.</p>
<p></p><p>Não achei nenhuma informação sobre esse comportamento do interpretador.</p><br><div class="gmail_quote">2008/9/1 Solli Honorio <span dir="ltr"><<a href="mailto:shonorio@gmail.com">shonorio@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr">5.10 é muita modernidade pra mim ainda ;) <br><br>Solli M. Honório<div><div class="Wj3C7c"><br><br><div class="gmail_quote">
2008/9/1 Lucas Mateus <span dir="ltr"><<a href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">lucasmateus.oliveira@gmail.com</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"><div dir="ltr"><div>> <code><br>> perl -e 'print "teste\n"; UNITCHECK { print "dentro do unitcheck\n"; exit 1 }; print "outro tese\n"'<br>
> <code><br><br>> o resultado será <br>
> teste<br><p>> dentro do unitcheck</p></div><p>E outra coisa, a saida não devia ser isso, devia ser apenas "dentro do unitcheck" pois para esse exemplo, o bloco UNITCHECK eh executado antes de qualquer coisa. Isso aconteceu pra mim, Perl 5.10<br>
</p><div><div><br><br><div class="gmail_quote">2008/9/1 Lucas Mateus <span dir="ltr"><<a href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">lucasmateus.oliveira@gmail.com</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">
<div dir="ltr"><p>Haaaa veja so, uma pequena modificação no seu codigo, e não sai mais</p><p><code><br>perl -e 'print "teste\n"; UNITCHECK { print "dentro do unitcheck\n"; exit}; print "outro tese\n"'<br>
<code></p><p>OU</p><div><p><code><br>perl -e 'print "teste\n"; UNITCHECK { print "dentro do unitcheck\n"; exit 0 }; print "outro tese\n"'<br><code><br>
<br></p></div><p>Percebi que somente quando a função exit() preence a var $? com valor diferente de 0 que a saida do programa é feita.</p>
<br><div class="gmail_quote">2008/9/1 Solli Honorio <span dir="ltr"><<a href="mailto:shonorio@gmail.com" target="_blank">shonorio@gmail.com</a>></span><div><div><br><blockquote class="gmail_quote" style="border-left:1px solid rgb(204, 204, 204);margin:0pt 0pt 0pt 0.8ex;padding-left:1ex">
<div dir="ltr">Ola meu querido, você vai fazer xixi na cama desta maneira brincando com fogo... mas vamos lá ...<br><br>O UNITCHECK e CHECK estão terminando sim o teu programa, experimenta terminar com 'exit 10' e capturar o código de retorno, ou simplesmente algo do tipo<br>
<br><code><br>perl -e 'print "teste\n"; UNITCHECK { print "dentro do unitcheck\n"; exit 1 }; print "outro tese\n"'<br><code><br><br>o resultado será <br>teste<br>dentro do unitcheck<br>
<br>... outra coisa, no meu perl 5.8.8 o teu exemplo dá um erro no CHECK, mas não olhei pq está ocorrendo isto, depois eu verifico em casa, abraço ...<br><br><br><div class="gmail_quote">2008/9/1 Lucas Mateus <span dir="ltr"><<a href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">lucasmateus.oliveira@gmail.com</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"><div><div>Hj tive uma dúvida quanto aos blocos especias de execução, BEGIN, UNITCHECK, CHECK, INIT e END.<br>
<br>
<br>
<br>
Quanto a ordem de execução:<br>
<br>
<code><br>
perl -e 'END{print "END".$/} BEGIN{print "BEGIN".$/} INIT{print "INIT".$/} UNITCHECK{print "UNITCHECK".$/} CHECK{print "CHECK".$/} print "teste".$/;'<br>
</code><br>
<br>
RESULTADO:<br>
<br>
BEGIN<br>
UNITCHECK<br>
CHECK<br>
INIT<br>
teste<br>
END<br>
<br>
<br>
<br>
O que não consegui entender é porque os blocos UNITCHECK e CHECK não finalizam o programa com a função exit() como os blocos BEGIN e INIT ?<br>
<br>
MEUS TESTES:<br>
<br>
perl -e 'print "teste\n"; UNITCHECK { 0 || exit }' # teste<br>
perl -e 'print "teste\n"; CHECK { 0 || exit }' # teste<br>
perl -e 'print "teste\n"; INIT { 0 || exit }' # [nada]<br>
<br>
<br>
<br>
<br>
LEITURA: <a href="http://perldoc.perl.org/perlmod.html#BEGIN%2c-UNITCHECK%2c-CHECK%2c-INIT-and-END" target="_blank">http://perldoc.perl.org/perlmod.html#BEGIN%2c-UNITCHECK%2c-CHECK%2c-INIT-and-END</a><br>
<br>
<br></div></div>
_______________________________________________<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>
</blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>
</div>
<br>_______________________________________________<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></blockquote></div></div></div><br></div>
</blockquote></div><br></div></div></div>
<br>_______________________________________________<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></blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>
</div></div></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>