Perlの星

Perlの星
図書館職員のための
アプリケーション開発講習会
ファイルのコピーのプログラム解析
while (<>) {
Print;
}
簡略形
while ($line = <>) {
print $line;
}
ちょっと変形
Perlは実に大胆に省略することができます。
上の例はファイルをコピーするプログラムですが、
これをまず解析してみましょう。
<> と標準出力

<> は標準出力からデータを一行読み取って、
左辺に返します。たとえば、次のようにすると
コマンドラインで指定したファイルの先頭一行
を読み取ります。


$line = <>;
標準出力の与え方は、Windowsコマンドプロ
ンプトや、UNIX系OSでは同じです。


コマンド処理対象ファイル
コマンド < “なにかの文字をタイプ”
While 文を解析
while ($line = <>) {}



While文は ()内の条件が「真」である間、ルー
プします。
ここでは、$line = <> のうち。 $lineの部分で
「真」と「偽」を判定されます。
$lineに値が入っているうちは、「真」です。ファ
イルの最後になると、EOFという特殊なデータ
が読み取られ、「偽」となります。
最終形をチェック
while ($line = <>) {
print $line;
}

Download Report