Perl UNLESS 語句

Perl 條件語句 Perl 條件語句

一個(gè) unless 語句由一個(gè)布爾表達(dá)式后跟一個(gè)或多個(gè)語句組成。

語法

語法格式如下所示：

unless(boolean_expression){
   # 在布爾表達(dá)式 boolean_expression 為 false 執(zhí)行
}

如果布爾表達(dá)式 boolean_expression為 false，則 unless 語句內(nèi)的代碼塊將被執(zhí)行。如果布爾表達(dá)式為 true，則 unless 語句結(jié)束后的第一組代碼（閉括號(hào)后）將被執(zhí)行。

流程圖

實(shí)例

#!/usr/bin/perl

$a = 20;
# 使用 unless 語句檢測(cè)布爾表達(dá)式
unless( $a < 20 ){
    # 布爾表達(dá)式為 false 時(shí)執(zhí)行
    printf "a 大于等于 20\n";
}
print "a 的值為 : $a\n";

$a = "";
# 使用 unless 語句檢測(cè)布爾表達(dá)式
unless ( $a ){
    # 布爾表達(dá)式為 false 時(shí)執(zhí)行
    printf "條件 a 為 false\n";
}
print "a 的值為 : $a\n";

執(zhí)行以上程序，輸出結(jié)果為：

a 大于等于 20
a 的值為 : 20
條件 a 為 false
a 的值為 :

Perl 條件語句 Perl 條件語句