「Perl入門」until文で繰り返し処理を行うサンプル
環境
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";
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";
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
>perl 13.pl
num = 0
num = 1
num = 2
num = 3
num = 4
test data
>perl 13.pl num = 0 num = 1 num = 2 num = 3 num = 4 test data