while文やfor文を使い標準入力から繰り返し値を取得

ユーザーから値を入力してもらいプログラムの中で利用する場合、指定した条件を満たすまで繰り返しユーザーに入力を行ったもらう処理はよく使われます。ここでは Perl のプログラムで while 文や for 文などの繰り返し処理を使って条件を満たすまで繰り返し標準入力から値を取得する方法について解説します。

(Last modified: 2023年04月03日)

標準入力から繰り返し値を取得する

標準入力から繰り返し値を取得する

標準入力からある条件を満たすまで繰り返し入力を行うという処理はよく使われます。例えば次のように記述します。

while (defined(my $line = <STDIN>)){
	chomp($line);
	print "$line\n";
}

上記の場合、 while 文の条件式の箇所で標準入力から 1 行読み込みます。条件式が真の場合、読み込んだ行から改行を取り除き画面に出力しています。

行入力演算子である <> はファイルの終端を読み込むと未定義値(undef)を返します。そこで defined 関数を使い未定義値(undef)が返されたときに繰り返しを終了させています。未定義値(undef)自体が偽となるため、 defined 関数を使用しなくてもファイルの終端に達すると繰り返しは終了しますが、未定義値以外で改行無しの 0 などを読み込んだ場合でも条件式は偽となるため未定義値(undef)かどうかを判別する方が安心です。

今回のように標準入力から値を読み込む場合はファイルの終端と言うものはありませんので、ファイルに終端に相当する Ctrl＋z を入力して Enter キーを押すか、または繰り返し処理の本文の中で何からの条件判断を行って繰り返し処理を抜けるようにします。

なお define 関数を記述した方がいいと先ほど書きましたが、現在では defined 関数を記述しなくても次のように記述するだけで define 関数が記述された時と同じ処理を行ってくれるようです。

while (my $line = <STDIN>){
	chomp($line);
	print "$line\n";
}

また while文の条件式の中に記述する場合にはデフォルト変数の $_ を使って次のように記述することも可能です。

while (<STDIN>){
	chomp($_);
	print "$_\n";
}

ただし上記のデフォルト変数 $_ はブロック内だけのローカル変数ではありません。よって while 文や for 文の外側で変数 $_ を使っていた場合は値が書き換えられますので注意して下さい。

なお for 文の場合は次のように記述します。

for (;<STDIN>;){
	chomp($_);
	print "$_\n";
}

どちらの場合も使い方は同じです。

サンプルコード

それでは簡単なサンプルを作成します。

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

print "while文による繰り返し\n";

while (my $line = <STDIN>){
    chomp($line);
    print "$line\n";
}

print "for文による繰り返し\n";

for (;<STDIN>;){
    chomp($_);
    print "$_\n";
}

テキストエディタでプログラムを記述したあと sample.pl という名前で保存します。(文字コードは UTF-8 です)。コマンドプロンプトを起動し、プログラムを保存したディレクトリへ移動したあとで次のように実行します。