Claudio, eu não o que vc quer cara, não entendi o que vc quis dizer com '<font size="2" face="Arial">É uma comparação feita como entre Bytes como
Boolean.'</font>, então vou responder o que eu acho que deveria ser a tradução do teu código:<br><br><span style="font-family: courier new,monospace;"><code></span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">sub ver_conteudo {</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> my @bits = (1,2,4,8,16,32,64,128);</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> return $bits[1] & $_[0] ? 1 : 0;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">}</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">if ( ver_conteudo(8) ) {</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> print "Verdadeiro\n";</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">} else {</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> print "Falso\n";</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">}</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"></code></span><br style="font-family: courier new,monospace;">
<br>Agora fiquei curioso, porque e como vc está traduzindo um programa em Delphi para Perl ? Isto é para uma empresa ?<br><br>Abraços,<br><br>Solli M. Honório<br><br><div class="gmail_quote">2009/7/8 <span dir="ltr"><<a href="mailto:claudio@dpreferencial.com.br">claudio@dpreferencial.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;">
<div bgcolor="#ffffff">
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Pessoall, Boa tarde!</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Como sempre, estou precisando de um
HELP!!!</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Estou passando um sistema de Delphi para Perl
</font></div>
<div><font size="2" face="Arial">e </font><font size="2" face="Arial">não tenho
consiguido achar indicação </font></div>
<div><font size="2" face="Arial">para desenvolver este trecho do
código.</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">É uma comparação feita como entre Bytes como
Boolean.</font></div>
<div><font size="2" face="Arial">________________________________________________________________</font></div>
<div><font size="2" face="Arial">________________________________________________________________</font></div>
<div><font size="2" face="Arial">Segue o trecho do código:</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Procedure Ver_Conteudo;</font></div>
<div><font size="2" face="Arial"> const BITS: array[0..7] of Byte =
(1,2,4,8,16,32,64,128);</font></div>
<div><font size="2" face="Arial"> Res: Boolean;</font></div>
<div><font size="2" face="Arial">Begin</font></div>
<div><font size="2" face="Arial"> </font></div>
<div><font size="2" face="Arial"> Res := Boolean ( BITS[1] and 6
); // Este é o trecho que me interessa, este
resultado dá true.</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial"> if (Res) Then ShowMessage('True') else
ShowMessage('False');</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">End;</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">
<div><font size="2" face="Arial">________________________________________________________________</font></div>
<div><font size="2" face="Arial">________________________________________________________________</font></div>
<div> </div>
<div>Qualquer ajuda/ luz, ajuda muito...</div>
<div> </div>
<div>desde já agradeço a todos.</div>
<div> </div>
<div>Abs</div>
<div> </div>
<div>Claudio H.Binaghi<br><a href="mailto:claudio@dpreferencial.com.br" target="_blank">claudio@dpreferencial.com.br</a><br>5511
3288.4840<br></div></font></div></div>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">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></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>