您好,登錄后才能下訂單哦!
這篇文章將為大家詳細(xì)講解有關(guān)Perl控制結(jié)構(gòu)怎么用,小編覺得挺實(shí)用的,因此分享給大家做個(gè)參考,希望大家閱讀完這篇文章后可以有所收獲。
Perl控制結(jié)構(gòu)
先來看看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""; } }
第二種是定語后置式。呵呵,英文好的覺得很正常了。
#!/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)是各種語言中都有的。perl中的for結(jié)構(gòu)和c語言中的非常相近。下面是一個(gè)例子?!?/p>
#!/user/bin/perl-w usestrict; { my$a; for($a=0;$a<10;$a++) { print"$a"; } }
對(duì)于數(shù)組我們可以這樣訪問?!?/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ù)組的長度,這樣就好懂了,是不是?
3:foreachPerl控制結(jié)構(gòu)
foreachPerl控制結(jié)構(gòu)很好玩的,在bsh和javascript中有一種for(in)循環(huán)和foreach很相象。其他的語言我不熟悉,不知道有沒有相近的。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地值打印出來。注意,我這里說得是引用,不是賦值,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中是非常爽的。
一種編程語言中的Perl控制結(jié)構(gòu)是控制程序流程走向的語句和語法,今天先來學(xué)學(xué)最基本的三個(gè)控制If、Unless、Until,呵呵,其實(shí)跟其他編程語言中的對(duì)應(yīng)語句的用法沒有大的區(qū)別,我們就通過幾個(gè)例子來看一看吧。
if是各種語言中都有的結(jié)構(gòu),但是perl的if似乎有點(diǎn)……那個(gè),可稱之為“定語后置”。具體來說就是這個(gè)樣子的
#!/usr/bin/perl-w usestrict; { my$a=3; print"thankgod!"if($a==3); }
當(dāng)然這是一個(gè)很無聊的程序了,但給大家演示了perl中定語是如何后置的。其他地方if的用法同其他語言就沒什么區(qū)別了。又例如下面的例子
#!/usr/bin/perl-w usestrict; { my$a; for($a=0;$a<10;$a++) { if($a>5)print"haha"; } }
有了if就一定會(huì)有else,else也沒有什么特別的。用法如下:
#!/usr/bin/perl-w usestrict; { my$a; for($a=0;$a<10;$a++) { if($a>5)print"haha"; elseprint"lala"; } }
關(guān)于“Perl控制結(jié)構(gòu)怎么用”這篇文章就分享到這里了,希望以上內(nèi)容可以對(duì)大家有一定的幫助,使各位可以學(xué)到更多知識(shí),如果覺得文章不錯(cuò),請(qǐng)把它分享出去讓更多的人看到。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。