Perl if语句用法实例解析

本文和大家重点讨论一下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";  


}  


 

运行结果