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;

die "コマンドライン引数をしてしてください。" unless @ARGV;
my $d = -1;
my $file = '';
for(@ARGV){
  if(-M > $d){
    $file = $_;
    $d = -M;
  }
}
print "$file: $d日経過\n";

入出力結果(Terminal)

$ ./perl_program *
sample_text.bak: 3940.30415509259日経過
$ ./perl_program
コマンドライン引数をしてしてください。 at ./perl_program line 5.
$