Question

我使用了简单的嵌套if语句。

要求如下。

if (Condition1) {
    if (Condition2) {
        print "All OK";
    }
    else {
        print "Condition1 is true but condition2 not";
    }
    else {print "Condition1 not true";
}

是否可以在perl中编写此代码，或者是否有其他简短/更好的方法来满足此条件？

Answer 1

TIMTOWTDIàlaternary operator：

print $condition1
      ? $condition2
        ? "All OK\n"
        : "Condition 1 true, Condition 2 false\n"
      :   "Condition 1 false\n";

Answer 2

if条件1为true子句缺少其应该在最后一个之前插入的结束}。

尝试以这种方式排列：

if (...) {
    if (...) {
        ...
    }
    else {
        ...
    }
}
else {
    ....
}

Answer 3

如果您的Perl版本> = 5.10。

，则可以使用给定的..

use v5.14;

my $condition1 = 'true';
my $condition2 = 'True';

given($condition1) {
    when (/^true$/) {
        given($condition2) {
            when (/^True$/) { say "condition 2 is True"; }
            default         { say "condition 2 is not True"; }
        }
    }
    default { say "condition 1 is not true"; }
}

Answer 4

怎么样：

if (Condition1=false) {
     print "Condition1 not true";
}
elsif (Condition2=True ) {
    print "All OK"; 
}
else {
    print "Condition1 is true but condition2 not";  
}

Answer 5

if (Condition1) {
    if (Condition2 ) {
        print "Both true";
    }
    else {
        print "Condition1 is true, Condition2 false";
    }
}
else {
    if (Condition2 ) {
        print "Condition1 false Condition2 is true";
    }
    else {
       print "Both false";
    }
}

Answer 6

#OR condition
if ( ($file =~ /string/) || ($file =~ /string/) ){
}

#AND condition
if ( ($file =~ /string/) && ($file =~ /string/) ){
}

perl嵌套if或其他东西

6 个答案: