<!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>Daniel, </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Bom exemplo!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Valeu pela dica... </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>
<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=daniel.oliveira.mantovani@gmail.com
href="mailto:daniel.oliveira.mantovani@gmail.com">Daniel de Oliveira
Mantovani</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 2:03
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [SP-pm] Problemas numa
comparação</DIV>
<DIV><BR></DIV>Olha esse código, vai te ajudar.<BR><BR>my $x = 1; <BR>my
$y = undef;<BR>my $z = 0;<BR><BR>if ( defined $x ) { print "Verdadeiro\n"; }
else { print "Falso\n"; }<BR><BR>if ( defined $y ) { print "Verdadeiro\n"; }
else { print "Falso\n"; }<BR><BR>if ( defined $z ) { print "Verdadeiro\n"; }
else { print "Falso\n"; }<BR><BR>if ( $x ) { print "Verdadeiro\n"; } else {
print "Falso\n"; }<BR><BR>if ( $y ) { print "Verdadeiro\n"; } else { print
"Falso\n"; }<BR><BR>if ( $z ) { print "Verdadeiro\n"; } else { print
"Falso\n"; }<BR><BR>if ( defined $x and defined $z ) { print "Verdadeiro\n"; }
else { print "Falso\n"; }<BR><BR>if ( $x and $z ) { print "Verdadeiro\n"; }
else { print "Falso\n"; }<BR><BR>if ( $x or $z ) { print "Verdadeiro\n"; }
else { print "Falso\n"; }<BR><BR>if ( defined $y or $z ) { print
"Verdadeiro\n"; } else { print "Falso\n"; }<BR><BR>if ( $y or $z ) { print
"Verdadeiro\n"; } else { print "Falso\n"; }<BR><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="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><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><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><A
href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</A><BR>This
is my
poney:<BR>-------(\_------------_/)-----------<BR>-------)--(----------)--(-----------<BR>------(----(---------)----)----------<BR>-------)----(-------)----(-----------<BR>-------(----(-------)----)-----------<BR>--------\_-(\\.---.//)-_/------------<BR>----------\)'
-8--8-
'(/--------------<BR>-----------/------------\---------------<BR>----------(--)--------(--)--------------<BR>------------(_c__c_)----------------<BR>----------------------------------------<BR>perl
-MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<A
href="http://www.perl.org.br">http://www.perl.org.br</A>"))'<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>