ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  26 Oct 2000  13:15:13
 To : Alex Ptushkin
 Subject : Re: find files
 -------------------------------------------------------------------------------- 
 

 <Alex_Ptushkin@f1342.n5030.z2.fidonet.org> wrote:
 
 AP> надо найти в одной директории фалик, допустим abc.edf. это просто. но как
 AP> зделать, чтобы найти все файлы *.edf? их может быть много... памажите,
 AP> плс.
 
 opendir(DIR,$directory);
 @files = grep /.*\.edf$/, <DIR>;
 closedir DIR;
 
 Если файлов в директории может быть много (десятки тысяч), то вторую строку
 поменять на эквивалентный цикл while, читающий по одному элементу за раз.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    find files   Alex Ptushkin   26 Oct 2000 00:23:18   Re: find files   Artur Penttinen   26 Oct 2000 08:34:41   find files   Slava Korchagin   26 Oct 2000 16:48:42   Re: find files   Artur Penttinen   26 Oct 2000 20:07:41   find files   Slava Korchagin   27 Oct 2000 09:54:26   Re: find files   Artem Chuprina   26 Oct 2000 13:15:13   find files   Leonid Subbotin   27 Oct 2000 10:17:17   find files   Anatolij Kupriyanov   27 Oct 2000 21:53:24   find files   Sergey Smagin   26 Oct 2000 08:42:36