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

締切済

質問者：wataruru35
質問日時：2006/09/22 15:54
回答数：1件

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： buffalomasa
回答日時：2006/09/22 18:39

特定のフォルダを $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] です。