<!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>Bom dia a todos!</FONT></DIV>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial
size=2>__________________________</FONT></DIV></FONT></DIV>
<DIV><FONT face=Arial size=2>Explicando melhor a minha situação:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Meu trabalho (tabulação) é organizar dados de
coletas (normalmente de pesquisas de opinião/mercado),</FONT></DIV>
<DIV><FONT face=Arial size=2>para gerar relatórios de nível
estratégico.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>As bases que trabalho tem uma
grande/gigantesca quantidade de campos (nome,cidade, estado).</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Normalmente são bases não normalizadas, muitos
campos dependentes e multivalorados.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Os programas citados tipo SPSS, Statics, SAP... são
programas que tem ferramentas de análise estatísticas poderosas.. são o padrão
para este mercado.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>O foco do meu trabalho é gerar relatórios de
nível estratégico,</FONT></DIV>
<DIV><FONT face=Arial size=2>quantificando, qualificando as informações e depois
gerar relatórios com analises que ajudem a entender aquela Visão do objeto
observado.</FONT></DIV>
<DIV><FONT face=Arial size=2>A histórinha do cubo, cada visão é um lado do
cubo... rsrs (papagaida só pra boi dormir..rsrs).. vulgarmente conhecido como
cruzamentos de dados..haha</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Para trabalhar com estas bases:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>obs: Trabalho com 2 arq. um é um bco de respostas
em texto (sem textos repet) o outro é a bse de respostas (com cont só de
códigos).</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>1º Como na base, os textos do conteúdo do campo é
sempre igual (faz parte de uma lista) nos codificamos os textos e geramos um
arquivo só de texto tipo:</FONT></DIV>
<DIV><FONT face=Arial size=2> Perg. A - Resp</FONT></DIV>
<DIV><FONT face=Arial size=2> Cód</FONT> <FONT face=Arial
size=2> 1 - Sim</FONT></DIV>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial size=2> Cód</FONT> <FONT face=Arial
size=2> 2 - Não..</FONT></DIV>
<DIV> no caso de uma perg. aberta tipo: Porque vc gosta de
abacaxi? passa por um processo de codificação manual.</DIV>
<DIV> </DIV>
<DIV> 2º Digito e consisto a base de códigos...</DIV>
<DIV></FONT><FONT face=Arial size=2></FONT> </DIV></DIV>
<DIV><FONT face=Arial size=2>Imagine vc que destas bases eu gero 100, 200,500,
1000... relatórios diferentes..</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV>
<DIV>Eu criei este sistema que para cada projeto que entra ele é programado (via
meus programadores/usuários) </DIV>
<DIV>para se adaptar as necessidades do projeto.</DIV>
<DIV> </DIV>
<DIV>Tenho que desenvolver processamentos de bases de 1.000 campos em 5 dias com
a digitação e tudo..</DIV>
<DIV> </DIV>
<DIV>Para isso criei uma linguagem de programação simplificada.. só com
operadores lógicos e algumas funções.</DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV>Só explico tudo isso para que o pessoal acompanhe/entenda melhor
a situação que coloco.</DIV></DIV>
<DIV><FONT face=Arial size=2>__________________________</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>
<DIV>Meu problema maior é que vivo do que programo.. desenvolvo o sistema que é
usado na minha empresa.. ser empresário e programador ao mesmo tempo é fd.. sabe
como é quem faz muito, não faz nada certo..rsrsrs</FONT></DIV></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Quero arranjar pessoas que possam me ajudar nestas
tarefas.. são muitas.. o esquema a gente tem que sentar e acertar.. ou um
free... ou por pacote.. se alguém se interessar, é só entrar em
contato.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Estou começando a passar o meu sistema para web
com: Apache, Perl, Xml, Javascript, Html... (bem simples)</FONT></DIV>
<DIV><FONT face=Arial size=2>só que hoje ainda uso os meus programas antigos
(desktop) para trab. como servidor destas páginas iniciais..</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial size=2>Iniciei um módulo de
tabelas, mais ainda esta meia boca veja ...</FONT></DIV>
<DIV><FONT face=Arial size=2><A
href="http://189.19.221.210/STI.net/AplicTab/cruzar.pl?CRZacao=1&CRZclie=APRES">http://189.19.221.210/STI.net/AplicTab/cruzar.pl?CRZacao=1&CRZclie=APRES</A></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>1 -Clique num projeto, exemplo: 1º - P36 Projeto
sabão</FONT></DIV>
<DIV><FONT face=Arial size=2>2 -Vá até a aba Cruz e selecione um cruzamento
existente tipo, IDADE e Classe.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV>
<DIV><FONT face=Arial size=2>__________________________</FONT></DIV></DIV>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial size=2>Voltando a programação;</FONT></DIV></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Vou testar as ótimas sugestões que recebi do
grupo,</FONT></DIV>
<DIV><FONT face=Arial size=2>para melhorar o código e aproveito e aprendo um
pouco mais sobre Perl...rsrs</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> </DIV>
<DIV>Vc's estão pensando em ir a que horas no BluePub amanhã?</DIV>
<DIV> </DIV></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>Só me </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 11:58
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [SP-pm] De delphi para
Perl,was Boas vindas ao Erick Major dos Santos</DIV>
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<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="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">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="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid"><FONT
face=Arial
size=2></FONT><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><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><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="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid"><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="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">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>
<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>