|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Slava Gorbanev 2:5057/19.20 26 Aug 2002 22:12:24
To : Rostislav Podgornyi
Subject : Re: самый старый файл в каталоге
--------------------------------------------------------------------------------
RP> Hужно получить имя самого стаpого файла в каталоге (учитывать
RP> и дату и вpемя создания). Как бы это сделать?
sub find_oldest {
my $dir = shift;
opendir (DIR, $dir) or return undef;
my ($oldest_mtime, $oldest_name) = (0x7fff_ffff);
while (my $name = readdir DIR) {
next if $name =~ /^\.\.?$/;
if ((stat "$dir/$name")[9] < $oldest_mtime) {
$oldest_mtime = (stat _)[9];
$oldest_name = $name;
}
}
closedir DIR;
return ($oldest_name, $oldest_mtime);
}
--
rnd, animated dead.
--- tin/1.5.7-20010105 ("Laetitia") (UNIX) (Linux/2.4.2-2 (i686))
* Origin: dark tower (2:5057/19.20)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
