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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
解析Perl控制結(jié)構(gòu)用法

本文和大家重點討論一下Perl控制結(jié)構(gòu)中的循環(huán)結(jié)構(gòu)，主要有while機構(gòu)，for結(jié)構(gòu)和foreachPerl結(jié)構(gòu)三部分內(nèi)容，這里向大家做一下詳細(xì)介紹，希望通過本文的學(xué)習(xí)大家對Perl控制結(jié)構(gòu)有深刻的理解。

Perl控制結(jié)構(gòu)

先來看看Perl中的循環(huán)結(jié)構(gòu)吧。

　　1：Perl控制結(jié)構(gòu)之while結(jié)構(gòu)

　　while結(jié)構(gòu)在perl中有三種形式。***種形式是這樣的：　　　

 
 
 
    
  
  
  
  1. #!/user/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my$a=0; 
    5. 
  
  
  
  5. 　　　while(3>$a) 
    6. 
  
  
  
  6. 　　　　　{ 
    7. 
  
  
  
  7. 　　　　　　print$a++; 
    8. 
  
  
  
  8. 　　　　　　print""; 
    9. 
  
  
  
  9. 　　　　　} 
    10. 
  
  
  
  10. 　　　} 
    11.

 　　第二種是定語后置式。呵呵，英文好的覺得很正常了。

 
 
 
    
  
  
  
  1. 　#!/user/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my$a=0; 
    5. 
  
  
  
  5. 　　　print$a++.""while(3>$a); 
    6. 
  
  
  
  6. 　　　} 
    7.

 　　第三種是這個樣子的，很古怪，真的很古怪。這種用法就是加上一個continue：　　　

 
 
 
    
  
  
  
  1. #!/user/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my$a=0; 
    5. 
  
  
  
  5. 　　　while(3>$a) 
    6. 
  
  
  
  6. 　　　　　{ 
    7. 
  
  
  
  7. 　　　　　　print"$a"; 
    8. 
  
  
  
  8. 　　　　　} 
    9. 
  
  
  
  9. 　　　continue 
    10. 
  
  
  
  10. 　　　　　{ 
    11. 
  
  
  
  11. 　　　　　　if($a++>1)print"hello"; 
    12. 
  
  
  
  12. 　　　　　} 
    13. 
  
  
  
  13. 　　　} 
    14.

 　　這種結(jié)構(gòu)會在每個while運行了一圈之后運行一遍continue的部分，然后繼續(xù)進行while循環(huán)。

　　2：Perl控制結(jié)構(gòu)之for結(jié)構(gòu)

　　for結(jié)構(gòu)是各種語言中都有的。perl中的for結(jié)構(gòu)和c語言中的非常相近。下面是一個例子?！　　?/p>

 
 
 
    
  
  
  
  1. #!/user/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my$a; 
    5. 
  
  
  
  5. 　　　for($a=0;$a<10;$a++) 
    6. 
  
  
  
  6. 　　　　　{ 
    7. 
  
  
  
  7. 　　　　　　print"$a"; 
    8. 
  
  
  
  8. 　　　　　} 
    9. 
  
  
  
  9. 　　　} 
    10.

 對于數(shù)組我們可以這樣訪問?！　　?/p>

 
 
 
    
  
  
  
  1. #!/user/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my@a=(1..10); 
    5. 
  
  
  
  5. 　　　my$counter; 
    6. 
  
  
  
  6. 　　　for($counter=0;$counter<@a;$counter++) 
    7. 
  
  
  
  7. 　　　　　{ 
    8. 
  
  
  
  8. 　　　　　　print"$a[$counter]"; 
    9. 
  
  
  
  9. 　　　　　} 
    10. 
  
  
  
  10. 　　　} 
    11.

 　　這里面出現(xiàn)了一句$counter<@a，記住，數(shù)組在標(biāo)量情況下即@a返回的是數(shù)組的長度，這樣就好懂了，是不是？#p#

　　3：foreachPerl控制結(jié)構(gòu)

　　foreachPerl控制結(jié)構(gòu)很好玩的，在bsh和javascript中有一種for(in)循環(huán)和foreach很相象。其他的語言我不熟悉，不知道有沒有相近的。foreach的用法可以從下面的例子得知：　　　

 
 
 
    
  
  
  
  1. #!/user/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my@a=(1..10); 
    5. 
  
  
  
  5. 　　　my$counter; 
    6. 
  
  
  
  6. 　　　foreach$counter(@a) 
    7. 
  
  
  
  7. 　　　　　{ 
    8. 
  
  
  
  8. 　　　　　　print"$counter"; 
    9. 
  
  
  
  9. 　　　　　} 
    10. 
  
  
  
  10. 　　　} 
    11.

 　　這個程序?qū)袬a數(shù)組中所有的元素先逐個引用給$counter，然后把$counter地值打印出來。注意，我這里說得是引用，不是賦值，perl里面的“=”實際上是在進行引用，而不是賦值，這是需要同c嚴(yán)格區(qū)分的。下面的例子更加好玩一點，看一看：　　

 
 
 
    
  
  
  
  1. 　#!/user/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my@a=(1..10); 
    5. 
  
  
  
  5. 　　　my$counter; 
    6. 
  
  
  
  6. 　　　foreach$counter(@a) 
    7. 
  
  
  
  7. 　　　　　{ 
    8. 
  
  
  
  8. 　　　　　　$counter++; 
    9. 
  
  
  
  9. 　　　　　} 
    10. 
  
  
  
  10. 　　　print"@a"; 
    11. 
  
  
  
  11. 　　　} 
    12.

 　　猜一猜將會打印出什么？呵呵，是234567891011。因為，$counter是@a中每個元素的引用，所以$counter++就對@a中每個元素進行了++操作。foreach用在hash中是非常爽的。

一種編程語言中的Perl控制結(jié)構(gòu)是控制程序流程走向的語句和語法，今天先來學(xué)學(xué)最基本的三個控制If、Unless、Until，呵呵，其實跟其他編程語言中的對應(yīng)語句的用法沒有大的區(qū)別，我們就通過幾個例子來看一看吧。

　　if是各種語言中都有的結(jié)構(gòu)，但是perl的if似乎有點……那個，可稱之為“定語后置”。具體來說就是這個樣子的　　　

 
 
 
    
  
  
  
  1. #!/usr/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my$a=3; 
    5. 
  
  
  
  5. 　　　print"thankgod!"if($a==3); 
    6. 
  
  
  
  6. 　　　} 
    7.

 　　當(dāng)然這是一個很無聊的程序了，但給大家演示了perl中定語是如何后置的。其他地方if的用法同其他語言就沒什么區(qū)別了。又例如下面的例子　　　

 
 
 
    
  
  
  
  1. #!/usr/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my$a; 
    5. 
  
  
  
  5. 　　　for($a=0;$a<10;$a++) 
    6. 
  
  
  
  6. 　　　　　{ 
    7. 
  
  
  
  7. 　　　　　　if($a>5)print"haha"; 
    8. 
  
  
  
  8. 　　　　　} 
    9. 
  
  
  
  9. 　　　} 
    10.

 　　有了if就一定會有else，else也沒有什么特別的。用法如下：　　　

 
 
 
    
  
  
  
  1. #!/usr/bin/perl-w 
    2. 
  
  
  
  2. 　　　usestrict; 
    3. 
  
  
  
  3. 　　　{ 
    4. 
  
  
  
  4. 　　　my$a; 
    5. 
  
  
  
  5. 　　　for($a=0;$a<10;$a++) 
    6. 
  
  
  
  6. 　　　　　{ 
    7. 
  
  
  
  7. 　　　　　　if($a>5)print"haha"; 
    8. 
  
  
  
  8. 　　　　　　elseprint"lala"; 
    9. 
  
  
  
  9. 　　　　　} 
    10. 
  
  
  
  10. 　　　} 
    11.

網(wǎng)站標(biāo)題：解析Perl控制結(jié)構(gòu)用法
URL分享：http://www.5511xx.com/article/dpepjgc.html