<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;">
Vc não acreditou na gambiarra né...rsrs<br>
mas funciona que é uma beleza..<br>
já fiz bases de 6.000 campos...rapidinho..rs <br></blockquote><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>
..............................................................<br>
<br>
Você pegou tudo!!!<br>
<br>
É isso mesmo, é uma operação lógica bit a bit.<br>
<br>
Se tiverem algo que facilite o manuseio destes bit's todos..rsrs.. seria SUPER..<br>
<br>
Eu conheço pouco do Perl..<br>
a cada descoberta, gosto mais ...</blockquote><div><br><span style="font-family: courier new,monospace;">E a cada post seu eu vou ficando mais curioso de como tudo isto funciona. Eu não consigo imaginar o que vc quer dizer com 6.000 campos ? O teu aquivo seria algo assim :</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">solli 101100000011101010010101000100101010101010010101010</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">Você tem algum exemplo para que a lista possa dar uma olhada ?</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Solli M. Honório</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>
..............................................................<br>
abs<br>
<br>
<br>
----- Original Message ----- From: "Blabos de Blebe" <<a href="mailto:blabos@gmail.com" target="_blank">blabos@gmail.com</a>><br>
To: "Perl Mongers São Paulo" <<a href="mailto:saopaulo-pm@mail.pm.org" target="_blank">saopaulo-pm@mail.pm.org</a>><br>
Sent: Wednesday, July 08, 2009 8:39 PM<br>
Subject: [SP-pm] De delphi para Perl,was Boas vindas ao Erick Major dos Santos<div><div></div><div class="h5"><br>
<br>
<br>
Minha mãezinha do céu!!!!!!!!!!!!!!!<br>
<br>
Ok, vamo lá,<br>
<br>
Eu conheço pouco de delphi então vou suspeitar, supor, ok? Se eu<br>
estiver errado, descarte, ok?<br>
<br>
Isso tem cara de operações lógicas bit a bit. Se for, então:<br>
<br>
O array BITS, guarda em cada posição um número especial que em binário<br>
só tem um bit "ligado". Parece ser uma máscara. O 6 deve ser o valor<br>
que está sendo avaliado contra a máscara.<br>
<br>
Em binário,<br>
<br>
0000 0001 = 1<br>
0000 0010 = 2<br>
0000 0100 = 4<br>
0000 1000 = 8<br>
0001 0000 = 16<br>
0010 0000 = 32<br>
0100 0000 = 64<br>
1000 0000 = 128<br>
<br>
0000 0110 = 6<br>
<br>
A operação que você está fazendo parece ser em binário, 2 and 6 (já<br>
que BITS[1] = 2), daí<br>
<br>
0000 0010 = 2 (and)<br>
0000 0110 = 6<br>
---------------------------<br>
0000 0010 = 2<br>
<br>
2 (na base 10) em contexto booleano, na maioria das linguagens é<br>
verdadeiro porque possui pelo menos um bit ligado, o segundo menos<br>
significativo, no caso.<br>
<br>
Provavelmente o seu código está perguntando:<br>
<br>
Se o segundo bit menos significativo de 6 estiver ligado, então mostre<br>
a mensagem "true" senão, mostre a mensagem "false".<br>
<br>
Bom, se for isso, eu só falei o seu problema com mais palavras que o<br>
delphi. Nunca trabalhei com isso em Perl. Deve ter algum módulo no<br>
cpan que facilite as coisas.<br>
<br>
Solli, você tem alguma dica???<br>
<br>
Abraços<br>
<br>
<br>
<br>
2009/7/8 <<a href="mailto:claudio@dpreferencial.com.br" target="_blank">claudio@dpreferencial.com.br</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Pessoall, Boa tarde!<br>
<br>
Como sempre, estou precisando de um HELP!!!<br>
<br>
Estou passando um sistema de Delphi para Perl<br>
e não tenho consiguido achar indicação<br>
para desenvolver este trecho do código.<br>
<br>
É uma comparação feita como entre Bytes como Boolean.<br>
________________________________________________________________<br>
________________________________________________________________<br>
Segue o trecho do código:<br>
<br>
Procedure Ver_Conteudo;<br>
const BITS: array[0..7] of Byte = (1,2,4,8,16,32,64,128);<br>
Res: Boolean;<br>
Begin<br>
<br>
Res := Boolean ( BITS[1] and 6 ); // Este é o trecho que me interessa,<br>
este resultado dá true.<br>
<br>
if (Res) Then ShowMessage('True') else ShowMessage('False');<br>
<br>
End;<br>
<br>
________________________________________________________________<br>
________________________________________________________________<br>
<br>
Qualquer ajuda/ luz, ajuda muito...<br>
<br>
desde já agradeço a todos.<br>
<br>
Abs<br>
<br>
Claudio H.Binaghi<br>
<a href="mailto:claudio@dpreferencial.com.br" target="_blank">claudio@dpreferencial.com.br</a><br>
5511 3288.4840<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>
<br>
</blockquote>
_______________________________________________<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>
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>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>