<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16850" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>A todos boa noite!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Soli, </FONT></DIV>
<DIV><FONT face=Arial size=2>valeu a intenção, mas assim não rola..
</FONT></DIV>
<DIV><FONT face=Arial size=2>já resolvi isto com & mesmo...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Estou passando o meu sistema que é em
Delphi..mas...</FONT></DIV>
<DIV><FONT face=Arial size=2>sou novato total em Perl...rsrs...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Respondendo a sua pergunta:</FONT></DIV>
<DIV><FONT face=Arial size=2>________________</FONT></DIV>
<DIV><FONT face=Arial size=2>Um breve histórico:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Eu trabalho com processamento de pesquisas de
mercado. (tabulação)</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>No começo trabalhei muito anos com Statiscs SPSS,
Statiscs ... (com estes programas as bases ficavam realmente
gigantes..rsrs..200.000 campos..rsrs)</FONT></DIV>
<DIV><FONT face=Arial size=2>acabei desenvolvendo meu próprio sistema de
tabulação.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Desenvolvi um formato para o meu arquivo de
dados, </FONT></DIV>
<DIV><FONT face=Arial size=2>levando em consideração minhas necessidades, tais
como:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>- conteúdo criptografado.</FONT></DIV>
<DIV><FONT face=Arial size=2>- tamanho final do arquivo de base.</FONT></DIV>
<DIV><FONT face=Arial size=2>- quantidade final de campos na base.</FONT></DIV>
<DIV><FONT face=Arial size=2>- base não normalizada = campos multivalorados
e dependentes..</FONT></DIV>
<DIV><FONT face=Arial size=2>- conteúdo dos campos: numérico.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>levando em consideração que:</FONT></DIV>
<DIV><FONT face=Arial size=2>- 80% dos campos de uma pesquisa são campos
numéricos e RM (respostas múltiplas=campos multivalorados) </FONT></DIV>
<DIV><FONT face=Arial size=2> Ex: </FONT></DIV>
<DIV><FONT face=Arial size=2> Quais frutas vc gosta:</FONT></DIV>
<DIV><FONT face=Arial size=2> 1 - abacaxi</FONT></DIV>
<DIV><FONT face=Arial size=2> 2 - Mamão</FONT></DIV>
<DIV><FONT face=Arial size=2> 3 - abacate.... até o código
50.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> um fulano responde os códigos
2/3/4/9/10/15</FONT></DIV>
<DIV><FONT face=Arial size=2> </FONT></DIV>
<DIV><FONT face=Arial size=2> num buffer(array de boleanos) eu marco true
nestas posição e gravo.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Veja, no SPSS ou em outras bases
"normais" eu precisaria de 15 campos </FONT><FONT face=Arial size=2>para
guardar as informações, </FONT></DIV>
<DIV><FONT face=Arial size=2>quando que eu guardo num campo só..de tamanho bem
pequeno...rsrs..</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>(não percebeu meu nome ..rsrs =>
</FONT><FONT face=Arial size=2>Binaghi = Binário..rsrs.. aqui só rola
um neurônio, que de vez em quando resolve ficar True..rsrs)</FONT></DIV>
<DIV><FONT face=Arial size=2><FONT face=Arial
size=2>____________________________________________________</FONT></DIV>
<DIV>
<DIV>
<DIV><FONT face=Arial
size=2>____________________________________________________</FONT></DIV></DIV></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>(é um código totalmente grosso..mas
funfa..rsrs)</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>É assim que eu faço: </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Leio o arq:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> open(tap,"<$PathHtdocs");<BR>
binmode tap;</FONT></DIV>
<DIV><FONT face=Arial size=2> my ($buf, $data, $n,
@cont);<BR> while (($n = read tap, $data, $x) !=
0) {<BR> print "$n bytes
read\n";<BR> $buf .=
$data;<BR>
}<BR> print "$buf";<BR>
close(tap);<BR> @cont=split(//,$buf);</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Comparo o conteúdo:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> push (@byt,1);<BR> push
(@byt,2);<BR> push (@byt,4);<BR> push (@byt,8);<BR> push
(@byt,16);<BR> push (@byt,32);<BR> push (@byt,64);<BR> push
(@byt,128);<BR> my @res;<BR> my $RecCount=$n*8;<BR>
for($a=1;$a<=$RecCount+1;$a++){<BR> push
(@res,0);<BR> }<BR> my $pos=0;<BR></FONT><FONT face=Arial
size=2> for($a=1;$a<=$n;$a++){<BR>
$val=$cont[$a];<BR>print "----> testa valor
$a:=$cont[$a]<br>\n";
<BR> if(ord($val)!=0){<BR>
for($k=0;$k<=7;++$k){<BR>
$pos=8*($a-1)+$k+1;<BR>
$ord=ord($val);<BR>
if(ord($val) & $byt[$k])
{<BR>
$res[$pos]=1;<BR>
$r=ver_conteudo(ord($val),$byt[$k]);<BR>print "----> res[$pos]:=1 /
$r<br>\n";<BR>
}<BR> }<BR> }<BR>
}<BR></FONT></DIV>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial
size=2>____________________________________________________</FONT></DIV></DIV></FONT>
<DIV><FONT face=Arial
size=2>____________________________________________________</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Esse formato é para as respostas no formato de
códigos,</FONT></DIV>
<DIV><FONT face=Arial size=2>os textos, destes códigos, ficam guardados em outro
arquivo..</FONT></DIV>
<DIV><FONT face=Arial size=2>Tipo na base normal se guarda no formato literal:
Sim, Não.. </FONT></DIV>
<DIV><FONT face=Arial size=2>na minha base quardo 1, 2 e tenho um texo só para
sim e não..</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Sacou...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Obrigado pela atenção..</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Abs</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Claudio H.Binaghi<BR><A
href="mailto:claudio@dpreferencial.com.br">claudio@dpreferencial.com.br</A><BR>5511
3288.4840<BR></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=shonorio@gmail.com href="mailto:shonorio@gmail.com">Solli Honorio</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=saopaulo-pm@mail.pm.org
href="mailto:saopaulo-pm@mail.pm.org">saopaulo-pm@mail.pm.org</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, July 08, 2009 3:32
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [SP-pm] Problemas numa
comparação</DIV>
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><FONT
face=Arial size=2></FONT><BR></DIV>Claudio, eu não ví que vc já havia
encontrado o teu problema, mas continuo curioso sobre o teu trabalho... mas
quero mostra uma outra solução para o teu problema...<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"> return 1 << $_[0]
& $_[1] ? 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(1,6) )
{</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><BR>apesar
de não ser tão legível (com certeza percisa de uma explicação), é muito mais
rápido pois não preciso criar um array.<BR><BR>Solli M. Honório<BR
style="FONT-FAMILY: courier new,monospace"><BR>
<DIV class=gmail_quote>2009/7/8 Solli Honorio <SPAN dir=ltr><<A
href="mailto:shonorio@gmail.com">shonorio@gmail.com</A>></SPAN><BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">Claudio,
eu não o que vc quer cara, não entendi o que vc quis dizer com '<FONT
face=Arial size=2>É 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>
<DIV class=im><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"></DIV><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>
<DIV class=im>2009/7/8 <SPAN dir=ltr><<A
href="mailto:claudio@dpreferencial.com.br"
target=_blank>claudio@dpreferencial.com.br</A>></SPAN><BR></DIV>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
<DIV bgcolor="#ffffff">
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV>
<DIV></DIV>
<DIV class=h5>
<DIV><FONT face=Arial size=2>Pessoall, Boa tarde!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Como sempre, estou precisando de um
HELP!!!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Estou passando um sistema de Delphi para Perl
</FONT></DIV>
<DIV><FONT face=Arial size=2>e </FONT><FONT face=Arial size=2>não tenho
consiguido achar indicação </FONT></DIV>
<DIV><FONT face=Arial size=2>para desenvolver este trecho do
código.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>É uma comparação feita como entre Bytes como
Boolean.</FONT></DIV>
<DIV><FONT face=Arial
size=2>________________________________________________________________</FONT></DIV>
<DIV><FONT face=Arial
size=2>________________________________________________________________</FONT></DIV>
<DIV><FONT face=Arial size=2>Segue o trecho do código:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Procedure Ver_Conteudo;</FONT></DIV>
<DIV><FONT face=Arial size=2> const BITS: array[0..7] of Byte
= (1,2,4,8,16,32,64,128);</FONT></DIV>
<DIV><FONT face=Arial size=2> Res:
Boolean;</FONT></DIV>
<DIV><FONT face=Arial size=2>Begin</FONT></DIV>
<DIV><FONT face=Arial size=2> </FONT></DIV>
<DIV><FONT face=Arial size=2> Res := Boolean ( BITS[1] and 6
); // Este é o trecho que me interessa, este
resultado dá true.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> if (Res) Then ShowMessage('True') else
ShowMessage('False');</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>End;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial
size=2>________________________________________________________________</FONT></DIV>
<DIV><FONT face=Arial
size=2>________________________________________________________________</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></DIV></DIV><BR>
<DIV
class=im>_______________________________________________<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></BLOCKQUOTE></DIV><FONT
color=#888888><BR><BR clear=all><BR>-- <BR>"o animal satisfeito dorme". -
Guimarães Rosa<BR></FONT></BLOCKQUOTE></DIV><BR><BR clear=all><BR>-- <BR>"o
animal satisfeito dorme". - Guimarães Rosa<BR>
<P>
<HR>
<P></P>_______________________________________________<BR>SaoPaulo-pm mailing
list<BR>SaoPaulo-pm@pm.org<BR>http://mail.pm.org/mailman/listinfo/saopaulo-pm</BLOCKQUOTE></BODY></HTML>