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

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

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

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

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

#!/user/bin/perl-w  
　　　usestrict;  
　　　{  
　　　my$a=0;  
　　　while(3>$a)  
　　　　　{  
　　　　　　print$a++;  
　　　　　　print"";  
　　　　　}  
　　　}  

 　　第二種是定語(yǔ)后置式。呵呵，英文好的覺(jué)得很正常了?！　?/p>

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

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

#!/user/bin/perl-w  
　　　usestrict;  
　　　{  
　　　my$a=0;  
　　　while(3>$a)  
　　　　　{  
　　　　　　print"$a";  
　　　　　}  
　　　continue  
　　　　　{  
　　　　　　if($a++>1)print"hello";  
　　　　　}  
　　　}  

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

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

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

#!/user/bin/perl-w  
　　　usestrict;  
　　　{  
　　　my$a;  
　　　for($a=0;$a<10;$a++)  
　　　　　{  
　　　　　　print"$a";  
　　　　　}  
　　　}  

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

#!/user/bin/perl-w  
　　　usestrict;  
　　　{  
　　　my@a=(1..10);  
　　　my$counter;  
　　　for($counter=0;$counter<@a;$counter++)  
　　　　　{  
　　　　　　print"$a[$counter]";  
　　　　　}  
　　　}  

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

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

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

#!/user/bin/perl-w  
　　　usestrict;  
　　　{  
　　　my@a=(1..10);  
　　　my$counter;  
　　　foreach$counter(@a)  
　　　　　{  
　　　　　　print"$counter";  
　　　　　}  
　　　}  

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

　#!/user/bin/perl-w  
　　　usestrict;  
　　　{  
　　　my@a=(1..10);  
　　　my$counter;  
　　　foreach$counter(@a)  
　　　　　{  
　　　　　　$counter++;  
　　　　　}  
　　　print"@a";  
　　　}  

 　　猜一猜將會(huì)打印出什么？呵呵，是234567891011。因?yàn)椋?counter是@a中每個(gè)元素的引用，所以$counter++就對(duì)@a中每個(gè)元素進(jìn)行了++操作。foreach用在hash中是非常爽的。

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

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

#!/usr/bin/perl-w  
　　　usestrict;  
　　　{  
　　　my$a=3;  
　　　print"thankgod!"if($a==3);  
　　　}  

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

#!/usr/bin/perl-w  
　　　usestrict;  
　　　{  
　　　my$a;  
　　　for($a=0;$a<10;$a++)  
　　　　　{  
　　　　　　if($a>5)print"haha";  
　　　　　}  
　　　}  

 　　有了if就一定會(huì)有else，else也沒(méi)有什么特別的。用法如下：　　　

#!/usr/bin/perl-w  
　　　usestrict;  
　　　{  
　　　my$a;  
　　　for($a=0;$a<10;$a++)  
　　　　　{  
　　　　　　if($a>5)print"haha";  
　　　　　　elseprint"lala";  
　　　　　}  
　　　}  

【編輯推薦】

1. 學(xué)習(xí)筆記 Perl控制流概念詳解
2. Perl文件句柄概念詳解
3. 解析四大Perl操作符用法
4. 解析Perl選擇性控制結(jié)構(gòu)的兩大指令
5. 學(xué)習(xí)筆記 Perl數(shù)字與字符串間的自動(dòng)轉(zhuǎn)換