いまさらな Perl メモ。
指定ディレクトリ中のファイルを更新時間順にソートしたり、一番新しいファイルを選んだりする処理。

#!/usr/bin/env perl
use strict;
use warnings;
my $input_dir = shift @ARGV;

opendir(my $dh, $input_dir) or die;
my @files = sort {$a->{mtime} <=> $b->{mtime}}
    map { {filename => $_, mtime => -M "$input_dir/$_"} }
    grep {!/^\./} readdir($dh);
close($dh);

print "newest: $files[0]{filename}\n";
print map {"$_->{filename} $_->{mtime}\n"} @files;

ref.
- 【Perl】指定ディレクトリ中の条件にあうファイルだけ取得[2013-01-17-2]