『Learning Perl, 8th Edition』

第12章. ファイルテスト

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

先に、出力のためにファイルハンドルを開く方法を紹介した。通常、この操作で新しいファイルが作成され、同じ名前の既存のファイルは消去される。 その名前のファイルが存在しないことを確認したい場合もあるだろう。指定されたファイルの古さを知りたいかもしれない。あるいは、ファイルのリストを調べて、あるバイト数より大きく、ある時間アクセスされていないファイルを発見したいかもしれない。Perlには、ファイルに関する情報を発見するために使用できるテストの完全なセットがある。

ファイルテスト演算子

Perlにはファイルに関する特定の情報を得るためのファイルテスト演算子がある。これらはすべて-X の形をとり、X は特定のテストを表す（少し混乱させるために、-X というリテラルなファイルテスト演算子もある）。ほとんどの場合、これらの演算子は真か偽を返す。我々はこれらを演算子と呼んでいるが、その説明はperlfuncで発見できるだろう。

注

リストを取得するには、perldoc -f-Xというコマンドラインを使う。この-X はリテラルで、コマンドラインスイッチではない。perldocを使って個別に調べることができないので、これはすべてのファイル・テスト演算子の代わりとなる。

新しいファイルを作成するプログラミングを開始する前に、そのファイルがすでに存在しないことを確認し、重要な表計算データファイルや重要な誕生日カレンダーを誤って上書きしてしまわないようにしたい。そのためには、-e ファイル・テストを使って、ファイル名が存在するかどうかをテストすることができる：

die "Oops! A file called '$filename' already exists.\n"
  if -e $filename;

この場合、システムがリクエストを拒否したことを報告しているわけではないので、このdie メッセージに$! を含めていないことに注意してほしい。以下は、ファイルが最新に保たれているかどうかをチェックする例である。この場合、文字列のファイル名ではなく、すでに開いているファイルハンドルをテストしている。あなたのプログラミングの構成ファイルは、1週間か2週間ごとに更新されるべきだとしよう。(過去28日間にファイルが変更されていなければ、何かが間違っている。-M ファイル・テストは、プログラミングを開始する前のファイルの変更時間を日単位で返す：

warn "Config file is looking pretty old!\n"
  if -M CONFIG > 28;

3つ目の例はもっと複雑だ。ディスクスペースが一杯になってきたので、ディスクを買い足す代わりに、大きくて役に立たないファイルはバックアップに移すことにしたとする。しかし、たとえファイルが大きくても、過去90日間アクセスされていない（つまり、あまり頻繁に使われていないことがわかる）のでなければ、倉庫に入れるべきでない。-s file test演算子は、trueかfalseを返す代わりに、ファイル・サイズをバイト単位で返す（既存のファイルは0バイトかもしれない）：

my @original_files = qw/ fred barney betty wilma pebbles dino bamm-bamm /; my @big_old_files; # The ones we want to ...