perl - Perl でネストされた 'if' またはその他のもの

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 :

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

Answer 2

if 条件 1が true です。句には、最後のelse}の直前に挿入する必要がある終了がありません。

このように物事を並べてみてください：

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

Answer 3

お使いのPerlのバージョンが5.10以上の場合はgive..whenを使用できます。

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) {
  print "Condition1 not true";
}
else {
  if (Condition2) {
    print "All OK";
  }
  else {
    print "Condition1 is true but condition2 not";
  }
}

Answer 6

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

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