【Perl】ループ・繰り返し処理[For文]

Perlにおける「For」文の使い方を解説します。

シンプルなFor文

指定した回数、繰り返し処理を行うシンプルなFor文です。

for(初期化; 条件式; インクリメント){
	処理;
}

変数[count]の値が、５より小さい（未満）の場合に、何周目のループかを表示するサンプルです。

for(my $count = 0; $count < 5; $count++){
	print "ループ回数：$count\n";
}

サンプルの実行結果です。
変数[count]を初期化した値「０」から始まり、条件式に設定した値「５」の１つ前である「４」までループしていることが分かります。

[root@STKPUB002 workspace]# perl test.pl
ループ回数：0
ループ回数：1
ループ回数：2
ループ回数：3
ループ回数：4

降順でループするFor文の記述方法です。

書式は、昇順でループする普通のFor文と同じです。

for(初期化; 条件式; インクリメント){
	処理;
}

変数[count]の値が、０より大きい場合に、何周目のループかを表示するサンプルです。
また、降順でループするため、インクリメントを「$count--」としています。

for(my $count = 5; $count > 0; $count--){
	print "ループ回数：$count\n";
}

サンプルの実行結果です。
変数[count]を初期化した値「５」から始まり、条件式に設定した値「０」の１つ前である「１」まで降順でループしていることが分かります。

[root@STKPUB002 workspace]# perl test.pl
ループ回数：5
ループ回数：4
ループ回数：3
ループ回数：2
ループ回数：1

リンク