Perl 条件语句
我们可以在 Perl 中使用条件语句。那么,什么是条件语句呢?条件语句是那些你实际检查代码中是否满足某些情况的语句。
Perl 支持两种类型的条件语句;他们是 if
和 else
。
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
。
可能存在 if
和 elsif
代码块都将失败的情况。在这种情况下,将执行 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
条件判断结构,(如果条件为真,它将执行代码块)。unless
与 if
相反,如果条件为 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