while

---

while (EXPR) BLOCK
while (EXPR) BLOCK continue BLOCK

　EXPRが真の間BLOCKの処理を繰り返します。

---

サンプルプログラム

use strict;
use warnings;

my $val = 13;
while ($val > 0) {
    my $d = int($val / 2);
    my $r = $val % 2;
    printf("%d / 2 = %d 余り %d\n", $val, $d, $r);
    $val = $d;
}

use strict;
use warnings;

while (my $item = <STDIN>) {
    print $item;
}

---

関連項目

・ループの先頭に戻る
・ループから抜ける
・continueブロック
・forループ
・foreachループ
・lastループ制御コマンド
・nextループ制御コマンド
・redoループ制御コマンド
・until文