サーバーの中の特定のフォルダの中にアップロードされた最新の物を表示

質問

ネット上のサーバーの中の特定のフォルダの中にアップロードされた最新の物を表示するCGIなどありませんか？

たとえば最新のものを3つトップページに表示させるとか

回答No.1

buffalomasa

特定のフォルダを $log とすると、

my $log = '/usr/temp/';

opendir DIR, $log;
my @list = readdir(DIR);
closedir DIR;

@list = map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [ $_, -M ] }
grep !/^\.$|^\.\.$/, @list;

最新の3つを表示したければ $list[0] $list[1] $list[2] です。