Perl UNLESS...ELSE ステートメント

if ステートメントの後には、オプションの else ステートメントを続けることができます。このステートメントは、ブール式が true の場合に実行されます。

文法

構文形式は次のとおりです。

 until(boolean_expression){ # ブール式 boolean_expression が false の場合に実行}else{ # ブール式 boolean_expression が true の場合に実行}

ブール式 boolean_expression が false の場合、unless ブロック内のコードが実行されます。ブール式が true の場合、else ブロック内のコードが実行されます。

フローチャート

例

#!/usr/bin/perl$a = 100;# ブール式を検出するには、unless ステートメントを使用します until( $a == 20 ){ # ブール式が false の場合、printf "指定された条件は falsen" ; }else{ # ブール式が true の場合、printf "指定された条件が truen";}p​​rint "a の値は $an";$a = "";# 以外を使用しますステートメントはブール式を検出します until( $a ){ # ブール式が false の場合、printf "a 指定された条件は falsen";}else{ # ブール式が true の場合、printf "a 指定された条件は false を実行しますtruen";}p​​rint "a の値は $an";

上記のプログラムを実行すると、出力結果は次のようになります。

指定された条件は false で、値は次のとおりです: 100a 指定された条件は false で、値は次のとおりです。