在 Perl 中使用 AND 运算符测试两个布尔值

Question

我想在 Perl 中测试两个布尔值。如果两者都是 0 做 x，如果不是做 y。例如： $var1 = 0;在 Perl 中为假 $var2 = 0;在 Perl 中为 false

if($var1==0 && var2==0)
{
  x //both are false
}
else
{
 y //both are true
}

Answer 1

if ( $var1 && $var2 ) {
   # Both are true.
}
elsif ( !$var1 && !$var2 ) {
   # Both are false.
}

或

if ( !( $var1 xor $var2 ) ) {
   # Both are true or both are false.
   if ( $var1 ) {
      # Both are true.
   } else {
      # Both are false.
   }
}

或

if ( $var1 ) { 
   if ( $var2 ) {
      # Both are true.
   }
} else {
   if ( !$var2 ) {
      # Both are false.
   }
}

Answer 2

所以……假设您仅在 $var1 和 $var2 都为真时才需要 y:

 if (!$var1 and !$var2) {
    # do x
  } elsif ($var1 and $var2) {
     # do y
  }

但是有TIMTOWTDI。因为 Perl.

在 Perl 中使用 AND 运算符测试两个布尔值

Test two boolean values with AND operator in Perl

perl

boolean-expression