日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
Perl流程控制語句用法指南

本文和大家重點(diǎn)討論一下Perl流程控制語句的概念，在學(xué)習(xí)Perl語言的過程中，Perl流程控制語句是非常實(shí)用的知識(shí)必須要掌握，希望通過本文的學(xué)習(xí)你對(duì)Perl流程控制語句有初步的了解。

Perl流程控制語句

條件選擇語句1

if(條件表達(dá)式){
語句塊1;
}else{
語句塊2;
}

條件選擇語句2

unless(判別運(yùn)算式)
{
語句2;
}else{
語句1;
}

if條件語句嵌套

if(條件表達(dá)式1)
{
語句1
}elsif(條件表達(dá)式2){
語句2
}elsif(條件表達(dá)式3){
語句3
}else{
語句4
}

例：

 
 
 
    
  
  
  
  1. #!/usr/bin/Perl-w 
    2. 
  
  
  
  2. print"input?\n"; 
    3. 
  
  
  
  3. $name=; 
    4. 
  
  
  
  4. chop($name); 
    5. 
  
  
  
  5. if($nameeq"bo") 
    6. 
  
  
  
  6. { 
    7. 
  
  
  
  7. print"mynameis$name\n"; 
    8. 
  
  
  
  8. }elsif($nameeq"ji"){ 
    9. 
  
  
  
  9. print"mylastnameis$name\n"; 
    10. 
  
  
  
  10. }elsif($nameeq"liu"){ 
    11. 
  
  
  
  11. print"myfirstnameis$name\n"; 
    12. 
  
  
  
  12. }else{ 
    13. 
  
  
  
  13. print"unkonw------!!!!!!!!!!\n"; 
    14. 
  
  
  
  14. } 
    15.

 靈活使用Perl

條件表達(dá)式&&語句塊

這的確是個(gè)邏輯與操作，若條件表達(dá)式為“真”，要根據(jù)后面語句塊的執(zhí)行結(jié)果才能判斷整個(gè)邏輯與操作的結(jié)果，這樣就會(huì)執(zhí)行后面的語句;而當(dāng)條件表達(dá)式為“假”，則整個(gè)表達(dá)式為“假”，不用考慮
后面語句塊的值。所以為假時(shí)的語句塊不被執(zhí)行。

open(FH,">filename")||die"打開文件出錯(cuò)。";
這時(shí)整個(gè)表達(dá)式的含義是：當(dāng)前面的語句執(zhí)行結(jié)果是“真”時(shí)，就不執(zhí)行后面的語句了;當(dāng)前面的語句執(zhí)行出錯(cuò)，結(jié)果是“假”時(shí)，就執(zhí)行后面的語句。這里die的含義是輸出出錯(cuò)信息。

if語句的簡(jiǎn)寫

 
 
 
    
  
  
  
  1. [root@test-linuxtmp]#catifp.pl 
    2. 
  
  
  
  2. #!/usr/bin/Perl-w 
    3. 
  
  
  
  3. $i=1; 
    4. 
  
  
  
  4. #if($i<10){ 
    5. 
  
  
  
  5. # 
    6. 
  
  
  
  6. #print"$i<10\n"; 
    7. 
  
  
  
  7. # 
    8. 
  
  
  
  8. #} 
    9. 
  
  
  
  9. print"$i<10\n"if($i<10); 
    10.

Perl流程控制語句之for循環(huán)

for(初始語句，條件判斷語句，循環(huán)變量步進(jìn)速度){
循環(huán)體語句
}

 
 
 
    
  
  
  
  1. [root@test-linuxtmp]#catpfor.pl 
    2. 
  
  
  
  2. #!/usr/bin/Perl-w 
    3. 
  
  
  
  3. for($i=1;$i<10;$i++){ 
    4. 
  
  
  
  4. print"$i\n"; 
    5. 
  
  
  
  5. } 
    6.

 #p#

Perl流程控制語句之while/until循環(huán)
while(條件表達(dá)式){
循環(huán)體語句
}

 
 
 
    
  
  
  
  1. [root@test-linuxtmp]#catpwhile.pl 
    2. 
  
  
  
  2. #!/usr/bin/Perl-w 
    3. 
  
  
  
  3. $i=1; 
    4. 
  
  
  
  4. while($i<10){ 
    5. 
  
  
  
  5. print"$i\n"; 
    6. 
  
  
  
  6. $i++; 
    7. 
  
  
  
  7. } 
    8. 
  
  
  
  8. 
  
  
  
  9. 當(dāng)條件表達(dá)式為“假”時(shí)，執(zhí)行循環(huán)體語句 
    10. 
  
  
  
  10. until(條件表達(dá)式){ 
    11. 
  
  
  
  11. 循環(huán)體語句 
    12. 
  
  
  
  12. } 
    13. 
  
  
  
  13. #!/usr/bin/Perl-w 
    14. 
  
  
  
  14. $i=0; 
    15. 
  
  
  
  15. until($i>10){ 
    16. 
  
  
  
  16. print"$i\n"; 
    17. 
  
  
  
  17. $i++ 
    18. 
  
  
  
  18. } 
    19. 
  
  
  
  19.

 Perl流程控制語句之do{}while/until循環(huán)

do{

}while/until(條件表達(dá)式);
do{}while的語意是執(zhí)行循環(huán)體，直到條件表達(dá)式為“假”;而do{}until的語意是執(zhí)行循環(huán)體，直到表達(dá)條件式為“真”。

Perl流程控制語句之foreach循環(huán)

foreach標(biāo)量(標(biāo)量)
{
循環(huán)體語句
}

 
 
 
    
  
  
  
  1. [root@test-linuxtmp]#catforeach.pl 
    2. 
  
  
  
  2. #!/usr/bin/Perl-w 
    3. 
  
  
  
  3. @array=(1,2,3,4,5); 
    4. 
  
  
  
  4. foreach$i(@array){ 
    5. 
  
  
  
  5. print"$i\n"; 
    6. 
  
  
  
  6. } 
    7. 
  
  
  
  7. #!/usr/bin/Perl-w#######有一個(gè)默認(rèn)變量$_ 
    8. 
  
  
  
  8. @array=(1,2,3,4,5); 
    9. 
  
  
  
  9. foreach(@array){ 
    10. 
  
  
  
  10. print; 
    11. 
  
  
  
  11. } 
    12. 
  
  
  
  12. 
  
  
  
  13. #!/usr/bin/Perl-w 
    14. 
  
  
  
  14. @array=(1,2,3,4,5); 
    15. 
  
  
  
  15. foreach$_(@array){ 
    16. 
  
  
  
  16. print$_; 
    17. 
  
  
  
  17. } 
    18. 
  
  
  
  18.

 循環(huán)體控制next和last等完成。

 
 
 
    
  
  
  
  1. [root@test-linuxtmp]#catnext.pl 
    2. 
  
  
  
  2. #!/usr/bin/Perl-w 
    3. 
  
  
  
  3. @array=("a","b","c","d","e","f"); 
    4. 
  
  
  
  4. foreach(@array){ 
    5. 
  
  
  
  5. if($_ge"c"){ 
    6. 
  
  
  
  6. last;##跳出循環(huán) 
    7. 
  
  
  
  7. } 
    8. 
  
  
  
  8. for($i=1;$i<7;$i++){ 
    9. 
  
  
  
  9. if(($i%2)==1){ 
    10. 
  
  
  
  10. next;##進(jìn)行下一次循環(huán) 
    11. 
  
  
  
  11. } 
    12. 
  
  
  
  12. print"$_"x"$i"; 
    13. 
  
  
  
  13. print"\n"; 
    14. 
  
  
  
  14. } 
    15. 
  
  
  
  15. } 
    16. 
  
  
  
  16. print"\nDone!\n"; 
    17.

注：當(dāng)外層循環(huán)變量大于等于“c”時(shí)，就跳出外層循環(huán)，代碼執(zhí)行完畢：內(nèi)層循環(huán)中，當(dāng)循環(huán)變量是奇數(shù)時(shí)，就不執(zhí)行打印操作，而執(zhí)行下一次循環(huán)。這樣就是下面的結(jié)果。

[root@test-linuxtmp]#./next.pl
aa
aaaa
aaaaaa
bb
bbbb
bbbbbb
Done!


網(wǎng)頁名稱：Perl流程控制語句用法指南
網(wǎng)站URL：http://www.5511xx.com/article/coesoip.html