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";  
  
  
  
}  
  
  
  
 
 
 
 

 运行结果

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

【编辑推荐】

1. 深入学习Perl运算符用法
2. Perl文件句柄概念详解
3. 解析四大Perl操作符用法
4. 专家推荐 几款常用Perl开发工具
5. 学习笔记 Perl数字与字符串间的自动转换