『Learning Perl, 8th Edition』

第5章. インプットとアウトプット

この作品はAIを使って翻訳されている。ご意見、ご感想をお待ちしている：[e-mail]

これまでの練習で、いくつかの入出力（I/O）を可能にする方法をすでに見てきただろう。しかし、これからは、ほとんどのプログラミングで必要となるI/Oの80％をカバーすることで、これらの演算子についてさらに学んでいくことになる。標準入力、標準出力、標準エラーストリームの仕組みにすでに慣れているのであれば、あなたはこのゲームの先を行っていることになる。そうでない場合は、この章の終わりまでには追いつけるだろう。とりあえず、「標準入力」は "キーボード"、「標準出力」は "ディスプレイ画面 "と考えてほしい。

標準入力からの入力

標準入力ストリームからの読み取りは簡単だ。<STDIN> この演算子をスカラー・コンテキストで評価すると、次の入力行が得られる：

$line = <STDIN>;                # read the next line
chomp($line);                   # and chomp it

chomp($line = <STDIN>);         # same thing, more idiomatically

ここで行入力演算子（<STDIN> ）と呼んでいるのは、実際にはファイルハンドルを囲む行入力演算子（山括弧で表されている）である。ファイルハンドルについてはこの章の後半で学ぶ。

line-input演算子はファイルの終端に達するとundef 、ループから抜けるのに便利である：

while (defined($line = <STDIN>)) {
  print "I saw $line";
}

入力を変数に読み取り、その変数が定義されているかどうかをチェックし、定義されていれば（つまり入力が終わっていなければ）、while ループ本体を実行しているのだ。ループ本体内では、$line の各行が次々に表示される。Perlはこのショートカットを用意している。ショートカットは以下のようになる：

while (<STDIN>) {
  print "I saw $_";
}

さて、このショートカットを作るために、ラリーは無駄な構文を選んだ。つまり、これは文字どおり「入力行を読み取り、それが真かどうかを確認する。（通常は真だ。）もし真なら、while ループに入るが、その入力行は捨てる！」と言っているのだ。実際のPerlプログラミングでそんなことをする必要はない。そこでラリーは、この役に立たない構文を便利なものにした。

Perlに入力を変数に読み取り、（結果が定義されている限り、ファイルの終端に達していない限り）while のループに入るように指示するのだ。ただし、入力を$line に格納する代わりに、Perlはお気に入りのデフォルト変数$_ を使う：

while (defined($_ = <STDIN>)) {
  print "I saw $_";
}

このショートカットは、このように記述した場合にのみ機能する。line-input演算子を他の場所に置くと（特に、単独で文として）、デフォルトでは$_ 、行を読み取ってくれない。これは、while ループの条件付きに行入力演算子以外何もない場合にのみ機能する。条件式に他のものを入れると、このショートカットは適用されない。

and演算子(<STDIN>)とPerlの大好きなデフォルト変数($_)の間には、他に何のつながりもない。しかしこの場合、Perlが入力をその変数に保存しているだけだ。

一方、リストコンテキストでline-input演算子を評価すると、（残りの）すべての入力行がリストとして得られる（リストの各要素が1行）： ...