[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