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文