ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander V. Gaiduk                  2:5020/400     04 Jan 2001  13:45:26
 To : All
 Subject : Re: find files
 -------------------------------------------------------------------------------- 
 

 
 Andrew Bobin wrote in message <92u5li$inq$1@host.talk.ru>...
 
 >Как мне найти все файлы с именами, удовлетворяющими маске и пробежаться
 >по ним? Т.е. интересуют аналоги паскалевских функций findfirst и
 >findnext. Можно с примерами.
 >--
 >Отправлено через сервер Talk.Ru - http://www.talk.ru
 рекурсивно бегает по дереву:
 
 ###################################
 &scandir("C:\\");
 
 sub scandir {
   my $d;
   my $nd;
   opendir(DIR, $_[0]);
   foreach $d (sort { uc($a) cmp uc($b) } readdir(DIR)) {
     if (($d ne ".") && ($d ne "..")) {
       $nd = $_[0] . "\\" . "$d";
       if ( -d $nd ) {
 #        print "$nd\n";  # print directory names
         &scandir($nd);
       } else {
         print "$nd\n";  # print file names
       }
     }
   }
   closedir(DIR);
 }
 ###################################
 
 куда поставить if с регэкспом маски наверное сам догадаешся :)
 для юниха поменяй слэши на прямые.
 
 =GAV
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    find files   Andrew Bobin   03 Jan 2001 07:20:16   Re: find files   Roman Guezikov   03 Jan 2001 10:17:33   find files   Leonid Subbotin   03 Jan 2001 21:28:38   Re: find files   Alexander V. Gaiduk   04 Jan 2001 13:45:26