「Perl入門」until文で繰り返し処理を行うサンプル

2022年4月13日

環境
Perl 5.32.1
Windows10 home 64bit
書式
until (条件式){
処理コード
}
条件式を評価し、条件式が偽だった場合にはブロック内の処理を行い、そして改めて条件式を評価します。
使用例

use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $num;

$num = 0;
until ($num >= 5){
  print "num = $num";
  print "\n";
  $num ++;
}

print "test data";

実行結果

>perl 13.pl
num = 0
num = 1
num = 2
num = 3
num = 4
test data