初めてのPerl 第7版

325

13 章の練習問題の解答

います。そのために、このプログラムの結果は、すべてのファイルの中で最も古いものではな

く、そのファイル以降で最も古いものになってしまいます。これをデバッグするのはかなり大

変です！

最後に、プログラムの末尾で、

printf

を使ってファイルの名前とその古さを表示しています。

古さは、

1/10

日単位に丸めて表示します。古さを

XX

日

XX

時間

XX

分という形式で表示され

るようにした人には、追加点を差し上げましょう。

3.

やり方の

1

つを次に示します。

use v5.10;

say "Looking for my files that are readable and writable";

die "No files specified!\n" unless @ARGV;

foreach my $file ( @ARGV ) {

say "$file is readable and writable" if -o -r -w $file;

}

積み重ねたファイルテスト演算子を利用するには、

Perl 5.10

以降を使う必要があるので、ま

ず最初に

use

文で、正しいバージョンの

Perl

を使っていることを確認します。

@ARGV

に要素

が入っていなければ

die

で終了します。そうでなければ、

foreach

ループを実行します。

3

つのファイルテスト演算子を使う必要があります。

-o

でそのファイルを所有しているかど

うかを調べ、

-r

で読み出し可能かどうかを調べ、

-w

で書き込み可能かどうかを調べます。こ