[SP-pm] Problemas numa comparação
claudio at dpreferencial.com.br
claudio at dpreferencial.com.br
Wed Jul 8 10:04:06 PDT 2009
Daniel,
Bom exemplo!
Valeu pela dica...
Abs
----- Original Message -----
From: Daniel de Oliveira Mantovani
To: saopaulo-pm at mail.pm.org
Sent: Wednesday, July 08, 2009 2:03 PM
Subject: Re: [SP-pm] Problemas numa comparação
Olha esse código, vai te ajudar.
my $x = 1;
my $y = undef;
my $z = 0;
if ( defined $x ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( defined $y ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( defined $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( $x ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( $y ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( defined $x and defined $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( $x and $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( $x or $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( defined $y or $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
if ( $y or $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }
2009/7/8 <claudio at dpreferencial.com.br>
Pessoall, Boa tarde!
Como sempre, estou precisando de um HELP!!!
Estou passando um sistema de Delphi para Perl
e não tenho consiguido achar indicação
para desenvolver este trecho do código.
É uma comparação feita como entre Bytes como Boolean.
________________________________________________________________
________________________________________________________________
Segue o trecho do código:
Procedure Ver_Conteudo;
const BITS: array[0..7] of Byte = (1,2,4,8,16,32,64,128);
Res: Boolean;
Begin
Res := Boolean ( BITS[1] and 6 ); // Este é o trecho que me interessa, este resultado dá true.
if (Res) Then ShowMessage('True') else ShowMessage('False');
End;
________________________________________________________________
________________________________________________________________
Qualquer ajuda/ luz, ajuda muito...
desde já agradeço a todos.
Abs
Claudio H.Binaghi
claudio at dpreferencial.com.br
5511 3288.4840
_______________________________________________
SaoPaulo-pm mailing list
SaoPaulo-pm at pm.org
http://mail.pm.org/mailman/listinfo/saopaulo-pm
--
http://mantovanihouse.blogspot.com/
This is my poney:
-------(\_------------_/)-----------
-------)--(----------)--(-----------
------(----(---------)----)----------
-------)----(-------)----(-----------
-------(----(-------)----)-----------
--------\_-(\\.---.//)-_/------------
----------\)' -8--8- '(/--------------
-----------/------------\---------------
----------(--)--------(--)--------------
------------(_c__c_)----------------
----------------------------------------
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("http://www.perl.org.br"))'
------------------------------------------------------------------------------
_______________________________________________
SaoPaulo-pm mailing list
SaoPaulo-pm at pm.org
http://mail.pm.org/mailman/listinfo/saopaulo-pm
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20090708/b5227ace/attachment.html>
More information about the SaoPaulo-pm
mailing list