Perl - ファイルテスト(最後に変更されてからの日数(-M))

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の12章(ファイルテスト),　12.5(練習問題)2を解いてみる。

2.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl
use strict;
use warnings;
use 5.012;

die "コマンドライン引数が指定されてない" unless @ARGV;
my $old = -1;
my $name = "";
for(@ARGV){
  next unless -e $_;
  ($old,$name) = (-M $_, $_) if -M $_ > $old;
}
die "引数に指定された名前のファイルは存在しない" if $old == -1;
print "最も古いファイルの名前と経過日数: $name $old日\n";

入出力結果(Terminal)

$ ./sample.pl
コマンドライン引数が指定されてない at ./sample.pl line 6.
kamimuras-MacBook-Pro:perl kamimura$ ./sample.pl abcde
引数に指定された名前のファイルは存在しない at ./sample.pl line 13.
kamimuras-MacBook-Pro:perl kamimura$ ./sample.pl abcde sample.pl
最も古いファイルの名前と経過日数: sample.pl 0.00123842592592593日
kamimuras-MacBook-Pro:perl kamimura$ ./sample.pl *
最も古いファイルの名前と経過日数: barney 4026.3228587963日
$