|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 28 Aug 2002 10:39:34
To : Bulat Ziganshin
Subject : Re: Hа: самый старый файл в каталоге
--------------------------------------------------------------------------------
Bulat Ziganshin <Bulat.Ziganshin@p126.f4.n5093.z2.fidonet.org> wrote:
> IP> А проще будет использовать `ls`, задав необходимые ключи сортировки
>
> да, проще всего всё же избрать эти файлы в Верховный Совет...
>
> (sort { (stat($a))[9] <=> (stat($b))[9] } (glob "*"))[0]
У glob() есть в разных ОС поведение разное. Лучше так:
opendir DH, './' or die "$!";
my $file = (sort { (stat $a)[9] <=> (stat $b)[9] }
(grep !/^\.{1,2}$/, readdir DH))[0];
closedir DH;
--
VP992-RIPE
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
