|
|
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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/12034f47a4495.html, оценка из 5, голосов 10
|