Perlプログラムをコンパクトに記述する方法

最新特集【一覧】

EPUB生成ツール「ReVIEW」について達人出版会の高橋氏に聞いてみた

1つのソースでEPUBとPDFを生成できる「ReVIEW」を試す

Snow Leopard探索記 最終回：線路は続くよどこまでも

　Perlは、複雑なコマンドを非常に短いコードで記述できる言語として有名である。本記事では、Perlについての前回の記事に引き続き、こういったことを可能にするためにPerlではどんなものが用意されているかについて少し解説したい。

　まず、キーボードから入力された文字を読み込み、それをコンソールに出力するという非常に簡単なプログラムを見てみよう。Perlではこういったことを以下のように記述することができる。

while ($line = ) {
    print $line;
}

　このままでも十分コンパクトと言えるこのプログラムは、いったい何を行っているのだろうか？簡単だ。は特殊なファイルハンドルであり、上記の例では標準入力（STDINと呼ばれる）のバッファに対応付けられている。そしてこれは通常キーボードに割り当てられている。が変数$lineに代入されるたびに、STDINのバッファから1行読み込まれ、$lineに格納される。バッファが空になるとEOFが返され、while文はそれを偽として扱う。プログラムの後半は読めば判るといってもよいだろう。print文に到達した時点で変数$lineには入力行が格納されているため、print関数によってその内容が画面に出力されることになる。より正確に言えば、通常は画面に割り当てられている標準出力（STDOUT）のバッファに出力されることになる。標準入力のバッファも標準出力のバッファもリダイレクトすることが可能である。例えばプログラムの出力を格納するために標準出力をファイルにリダイレクトすることができる。しかし、テキストを扱う場合には普通、標準入力と標準出力がそれぞれキーボードと画面に相当すると考えて問題はない。

　このプログラムはこれ以上短くならないと考えている読者の方もおられるかもしれないが、Perlの特殊変数を用いることで、さらに短くすることができるのである。