偷偷摘套内射激情视频,久久精品99国产国产精,中文字幕无线乱码人妻,中文在线中文a,性爽19p

Perl if語句用法實例解析

開發(fā) 架構
Perl if語句的用法你是否了解,這里通過實例向大家介紹一下,希望通過本文的介紹你對Perl if語句的用法有明確的認識。

本文和大家重點討論一下Perl Perl if語句的概念,主要包括 Perl if語句和if/else語句兩罰部分內容,相信通過本文的學習你對Perl語句的用法一定會有深入的了解。下面請看本文的詳細介紹。

Perl if語句 

1. if語句

在Perl if語句中,首先出現的是關鍵字if,然后是條件表達式,其次是位于花括號里的一個或多個語句組成的代碼塊。塊中的每個語句都以分號(;)結尾。
if(conditional_statment){codetoexecute;}

  1. #!/usr/bin/perl  
  2. $x=7;  
  3. $y=7;  
  4.  
  5. #TESTING...ONE,TWO...TESTING  
  6. if($x==7){  
  7. print'$xisequalto7!';  
  8. print"\n";  
  9. }  
  10. if(($x==7)||($y==7)){  
  11. print'$xor$yisequalto7!';  
  12. print"\n";  
  13. }  
  14. if(($x==7)&&($y==7)){  
  15. print'$xand$yareequalto7!';  
  16. print"\n";  
  17. }  
  18.  

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

2.if/else語句

該結構支持雙路選擇。如果if后面***個表達式為真,就執(zhí)行if后面的語句;否則,執(zhí)行else后面的語句。Else不能作為獨立語句而存在,它必須跟隨在Perl if語句之后。如果Perl if語句嵌入到其它Perl if語句中的話,else語句將與前面最近的Perl if語句關聯。

  1. #!/usr/bin/perl  
  2. $x=5;  
  3. #PLAYTHEGUESSINGGAME  
  4. if($x==6){  
  5. print"Xmustbe6.";  
  6. print"\n";  
  7. }  
  8. elsif($x==4){  
  9. print"Xmustbe4.";  
  10. print"\n";  
  11. }  
  12. elsif($x==5){  
  13. print"Xmustbe5!";  
  14. print"\n";  
  15. }  
  16.  

 運行結果

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

【編輯推薦】

 

  1. 深入學習Perl運算符用法
  2. Perl文件句柄概念詳解
  3. 解析四大Perl操作符用法
  4. 專家推薦 幾款常用Perl開發(fā)工具
  5. 學習筆記 Perl數字與字符串間的自動轉換


 

責任編輯:佚名 來源: csdn.net
相關推薦

2010-07-20 09:45:04

Perl繼承

2010-07-15 15:54:10

Perl守護進程

2010-07-13 13:49:43

Perl foreac

2010-07-23 13:46:27

Perl語言

2010-07-15 10:22:23

Perl控制結構

2010-07-16 16:56:01

Perl構造函數

2010-07-19 14:13:41

Perl函數

2010-07-16 13:10:36

Perl哈希表

2010-07-14 15:32:21

Perl轉義字符

2010-07-20 15:02:20

Perl數組

2010-07-21 13:59:59

Perl引用

2010-07-19 14:37:01

Perl進程啟動函數

2010-07-13 09:23:00

Perl變量

2010-07-15 10:47:22

Perl命令行

2010-07-26 15:17:51

Perl解析XML文件

2010-07-14 12:39:30

Prel字符串

2010-07-26 14:06:43

Perl substr

2010-07-14 15:51:30

Perl 字符匹配

2010-07-19 14:20:57

Perl函數

2010-07-16 13:45:41

Perl引用
點贊
收藏

51CTO技術棧公眾號