Perl 條件語句

我們可以在 Perl 中使用條件語句。那麼,什麼是條件語句呢?條件語句是那些你實際檢查程式碼中是否滿足某些情況的語句。

Perl 支援兩種型別的條件語句;他們是 ifelse

Perl if

如果條件為真,則執行程式碼塊。

my $a=5;

if($a==5)

{

   print "The value is $a";

}

輸出:

The value is 5

Perl if else

讓我們考慮下 $a 不是 5 的情況。

my $a=10;

if($a==5)

{

    print "The values is $a ---PASS";

}

else

{

    print "The value is $a ---FAIL";

}

輸出:

The value is 10 ---FAIL

這樣我們一次只能控制一個條件。這是一個限制嗎?不,你還可以使用 if ... elsif ... else 來控制各種條件。

Perl elsif

my $a=5;

if($a==6)

{

    print "Executed If block -- The value is $a";

}

elsif($a==5)

{

    print "Executed elsif block --The value is $a";

}

else

{

    print "Executed else block – The value is $a";

}

輸出:

Executed elsif block --The value is 5

在上面的例子中,elsif 塊將被執行,因為 $a 等於 5

可能存在 ifelsif 程式碼塊都將失敗的情況。在這種情況下,將執行 else 程式碼塊。

Perl 巢狀條件語句

在這種情況下,你可以在 if 程式碼塊中巢狀 if 程式碼塊。

my $a=11; #Change values to 11,2,5 and observe output

if($a<10){

  print "Inside 1st if block";

        if($a<5){

                print "Inside 2nd if block --- The value is $a";

        }

        else{

                print " Inside 2nd else block --- The value is $a";

        }

    }

    else{

            print "Inside 1st else block – The value is $a";

    }

輸出:

Inside 1st else block – The value is 11

Perl unless

你已經學會了 if 條件判斷結構,(如果條件為真,它將執行程式碼塊)。unlessif 相反,如果條件為 false 則將執行程式碼塊。

my $a=5;

unless($a==5)

{

   print "Inside the unless block --- The value is $a";

}

else

{

   print "Inside else block--- The value is $a";

}

輸出:

Inside 1st else block – The value is 5

輸出將是 else 塊的 print 語句。

使用 if 的例子

$a= " This is Perl";

if($a eq "SASSDSS"){

print "Inside If Block";

}

else

{

print "Inside else block"

}

輸出:

Inside else block

使用 unless 的例子

$a= " This is Perl";

unless($a eq "SASSDSS"){

print "Inside unless Block";

}

else

{

print "Inside else block"

}

輸出:

Inside unless Block