Perl 循環語句

while循環語法：

while(some_expression){
statment_1;
statment_2;
....
}

程序執行到while語句時，首先檢查控制語句(some_expression)，若其值為真，就會執行循環體一次，如此反復不停的執行，知道控制語句的值為假，則停止while循環

示例：

#!/usr/bin/perl -w
$number=10;

while($number > 0){
print ("number is $number\n");
--$number;
}

until循環語法

until( some_expression ){
statment_1;
statment_2;
...
}

與while語句相反，some_expression 值為假則執行循環體，為真則停止循環
示例：

#!/usr/bin/perl -w
$number=10;

until($number <= 0){
print ("number is $number\n");
--$number;
}

do while 循環和do until 循環 語法

do while 或 do until 循環 至少執行一次循環體，然後才檢查條件。

do {
statment_1;
statment_2;
...
}while(some_expression);

do while 循環，條件表達式為假則循環結束

do {
statment_1;
statment_2;
...
}until(some_expression);

do until 循環，條件表達式為真則循環結束

for循環
for語句主要用於確定次數的循環，語法如下：

for(其實語句;測試語句;步進語句){
statment_1;
statment_2;
....
}

系統會首先執行起始語句。一般可以在這裡為變量賦值，不過這不是硬性規定，甚至可以什麼都不寫，但是分號還是要寫。測試語句的值若為真，循環體被執行一次，接著執行步進語句。

foreach循環

foreach循環可以接收一個列表，將其中的數據作為參數一次一個賦給某標量變量，並執行每一條有效賦值的代碼塊語句。其語法如下：

foreach $i (@some_list){
statment_1;
statment_2;
....
}

示例：

#!/usr/bin/perl -w

foreach (1..10){
print " ";
print;
}

print "\n";

foreach所用的列表跨越式任何值為列表的語句，不一定要數組變量，甚至可以不寫標量變量，讓perl使用默認變量 $_ 。如不指定任何值給print ，就會打印出$_ 的內容。

如果在應該使用列表值的地方使用了真正的變量，取代返回列表的函數，那麼perl會在循環中把用到的變量視為傳入的變量的別名，而不僅僅是拷貝值而已。這樣，如果在循環中改變了該標量變量，列表裡的對應元素也會被相應改變。例如：

#!/usr/bin/perl -w

@x=(1..10);
foreach $num (@x){

$num += 10;
}
print "@x";
print "\n";

foreach執行完後，數組@x 的值改變了。

Perl 獲取cpu使用率 http://www.linuxidc.com/Linux/2013-06/85950.htm

Perl中pop與push函數 http://www.linuxidc.com/Linux/2013-01/78154.htm

【Perl腳本】找出日志中的錯誤信息並發送郵件 http://www.linuxidc.com/Linux/2012-11/75069.htm

用Perl 從MySQL取出數據做統計分析代碼 http://www.linuxidc.com/Linux/2012-02/53289.htm

Perl語言入門 第六版中文清晰PDF http://www.linuxidc.com/Linux/2014-08/105402.htm

Perl 的詳細介紹：請點這裡
Perl 的下載地址：請點這裡