浅谈Perl选择性控制结构

大 中 小  文章来源：万象互联 更新时间：2012-11-15 17:30:46
分享：

Perl选择性控制结构

选择性控制结构包括if和unless语句，类似于C语言中的if。

首先介绍一下真和假的定义。在Perl中，这些规则有些难以理解。控制表达式的值为空串或0时，则表达式为假，对于其它任何情况，表达式的值都为真。

注意："00"不是空串或0，值为真。"0.0"也是如此。

指令:if假如

语法一:

if(判别运算式)
{
表达式为真时的语句块;
}

上个语法在Perl中也可以写成:表达式为真时的语句块if(判别运算式);

范例: 

	
	
    
		
		
  1. 
			print"请输入您的分数?\n";   
			
  2. 
				$scorre=<STDIN>;#<STDIN>代表标准输入,会让使用者输入一字符串   
				
  3. 
					chop($score);#将$score最后一个换行字符\n删除掉   
					
  4. 
						if($score>=60){   
						
  5. 
							  
							
  6. 
								print"您的分数及格了!\n";   
								
  7. 
									  
									
  8. 
										}   
										
  9. 
											  
										
    10.


也可以写成:print"您的分数及格了!\n"if($score>=60);

语法二:

if(判别运算式一){
判别式一为真时的语句块;

}else{
判别式一为假时的语句块;

}

范例: 

													
												
    
													
													
  1. 
														print"请输入您的分数?\n";   
														
  2. 
															$scorre=<STDIN>;   
															
  3. 
																chop($score);   
																
  4. 
																	if($score>=60)   
																	
  5. 
																		{   
																		
  6. 
																			print"您的分数及格了!\n";   
																			
  7. 
																				}   
																				
  8. 
																					else{   
																					
  9. 
																						print"您的分数不及格!\n";   
																						
  10. 
																							}   
																							
  11. 
																								  
																							
    12.


语法三:

if(判别运算式一)

{

判别式一为真时的语句块;

}elsif(判别运算式二){

判别式二为真时的语句块;

}elsif(判别运算式三){

判别式三为真时的语句块;

}else{

所有判别式为假时的语句块;

}

范例:                 

																								
    
																									
																									
  1. 
																										print"请输入您的分数?\n";   
																										
  2. 
																											$scorre=<STDIN>;   
																											
  3. 
																												chop($score);   
																												
  4. 
																													if($score>60)   
																													
  5. 
																														{   
																														
  6. 
																															print"您的分数大于60分!\n";   
																															
  7. 
																																}   
																																
  8. 
																																	elsif($score<60){   
																																	
  9. 
																																		print"您的分数小于60分!\n":   
																																		
  10. 
																																			}   
																																			
  11. 
																																				else{   
																																				
  12. 
																																					print"您的分数刚好是60分!\n";   
																																					
  13. 
																																						}   
																																						
  14. 
																																							  
																																						
    15.


指令:unless假如非

unless的含义就是说“如果判别式不为真，就执行...”。

语法一:

unless(判别运算式){

判别式为假时语句块;

}

上个语法在Perl中也可以写成:判别式为假时语句块unless(判别运算式);

范例:             

																																							
    
																																								
																																								
  1. 
																																									print"请输入您的分数?\n";   
																																									
  2. 
																																										$scorre=<STDIN>;#<STDIN>代表标准输入,会让使用者输入一字符串   
																																										
  3. 
																																											chop($score);#将$score最后一个换行字符\n删除掉   
																																											
  4. 
																																												unless($score<60)   
																																												
  5. 
																																													{   
																																													
  6. 
																																														print"您的分数及格了!\n";   
																																														
  7. 
																																															}   
																																															
  8. 
																																																  
																																															
    9.


也可以写成:print"您的分数及格了!\n"unless($score<60); 

语法二:

unless(判别运算式)
{

判别式为假时语句块;

}else{

判别式为真时语句块;

}

范例:

  1. print"请输入您的分数?\n";  
  2. $scorre=<STDIN>;  
  3. chop($score);  
  4. unless($score<60)  
  5. {  
  6. print"您的分数及格了!\n";  
  7. }  
  8. else{  
  9. print"您的分数不及格!\n";  
  10. }   
 文章来源：http://www.hulian.top，转载请注明！
版权说明:本站原创文章,由万象互联SEO优化发表.
本文地址:https://www.hulian.top/zixun/post/5412.html
分享到：QQ空间新浪微博腾讯微博微信百度贴吧百度空间搜狐微博
在线咨询
  • 在线时间
  • 8:00-21:00