Perlゼミ

1. Perl
›
2. ファイル入出力
›
3. here

Unix風のフィルタプログラミングを書く

Unix風フィルタプログラミングと呼ぶべき種類のプログラミングがあります。特徴を述べると

1. ファイルを引数で渡すか標準入力で渡すかをユーザが選択できる。
2. 条件はオプションとして指定(-s10のような記述)する。

ということです。

Perlには、Unix風フィルタプログラミングを記述する便利な記述方法があります。while文と行入力演算子を使って、行を読み込んでいきます。

use strict;
use warnings;

# Unix風のフィルタプログラミングを記述する。
# 今回はカンマ区切りの文字列の一列目を取り出すフィルタプログラムです。

# 特殊な行入力演算子<>
while (<>) {
  # 読み込まれた行は特殊変数 $_に代入される。
  chomp $_; 
  my @items = split(/,/, $_);
  print $items[0] . "\n";
}

コード解説

# 特殊な行読み込み演算子 <>
while (<>) {
  # 読み込まれた行は特殊変数 $_に代入される。
  chomp $_; 
  my @items = split(',', $_);
  print $items[0] . "\n";
}

(1)<> 演算子

「<>」は、すこし変わった演算子です。行入力演算子で、ファイルハンドルが空になっています。<>は、引数にファイルが与えられた場合は、そのファイルから一行読み取りを行います。標準入力にファイルが与えられれば、標準入力からファイルの一行読みとりを行います。

引数に複数のファイルが指定された場合は、引数1,引数2という順番でファイルを読みこんでいきます。標準入力と引数が両方指定された場合は、標準入力を読み込みます。

<>演算子を使えば、unix風フィルタプログラミングの条件が極めて簡潔な記述ができます。ファイルのオープンクローズも自動で行われます。

読み込んだ行は、特殊変数$_に代入されます。以上のことに注意すれば残りは通常のプログラミングです。

(2)Unix風フィルタプログラミングの利点

最大の利点は、単独で使う場合とパイプを利用する場合に自然に対応できるということです。単独で使う場合は

今回のプログラム 入力ファイル

とすればよく、パイプを利用するときは

プログラムA | 今回のプログラム | プログラムB

と記述できます。