Perl if语句用法实例解析-51CTO.COM

本文和大家重点讨论一下Perl Perl if语句的概念，主要包括 Perl if语句和if/else语句两罚部分内容，相信通过本文的学习你对Perl语句的用法一定会有深入的了解。下面请看本文的详细介绍。

Perl if语句

1. if语句

在Perl if语句中，首先出现的是关键字if，然后是条件表达式，其次是位于花括号里的一个或多个语句组成的代码块。块中的每个语句都以分号（；）结尾。
if(conditional_statment){codetoexecute;}
例

#!/usr/bin/perl  
$x=7;  
$y=7;  
 
#TESTING...ONE,TWO...TESTING  
if($x==7){  
print'$xisequalto7!';  
print"\n";  
}  
if(($x==7)||($y==7)){  
print'$xor$yisequalto7!';  
print"\n";  
}  
if(($x==7)&&($y==7)){  
print'$xand$yareequalto7!';  
print"\n";  
}

运行结果
[root@localhostjs]#./t1-10.html
$xisequalto7!
$xor$yisequalto7!
$xand$yareequalto7!

2.if/else语句

该结构支持双路选择。如果if后面***个表达式为真，就执行if后面的语句；否则，执行else后面的语句。Else不能作为独立语句而存在，它必须跟随在Perl if语句之后。如果Perl if语句嵌入到其它Perl if语句中的话，else语句将与前面最近的Perl if语句关联。
例

#!/usr/bin/perl  
$x=5;  
#PLAYTHEGUESSINGGAME  
if($x==6){  
print"Xmustbe6.";  
print"\n";  
}  
elsif($x==4){  
print"Xmustbe4.";  
print"\n";  
}  
elsif($x==5){  
print"Xmustbe5!";  
print"\n";  
}

运行结果

[root@localhostjs]#./t1-11.html
Xmustbe5!

【编辑推荐】