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