ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : omen                                 2:5020/400     25 Oct 2001  13:30:34
 To : George Shuklin
 Subject : Re: Обход подкаталогов
 -------------------------------------------------------------------------------- 
 

 "George Shuklin" <George.Shuklin@f1377.n5030.z2.fidonet.org> wrote in
 message news:1003943782@f1377.n5030.z2.ftn...
 
 > Hi All.
 >
 > Как получить список всех файлов во всех подкаталогах?
 >
 > wBL, George. http://www.cl.spb.ru/sector_/
 >
 
 sub processdir
 {
     my ($curdir)=@_;
     my ($fname);
 
     foreach $fname (glob($curdir.'/*')){
         if(-d $fname)
         {
             # DIR
             processdir($fname);
         } else {
             # FILE
         }
      }
 }
 А дальше делаешь че хотишь Ж)
 
 --
 <--- With best regards Viktor --->
 --- ifmail v.2.15dev5
  * Origin: Gamma NNTP server Moscow Russia (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Обход подкаталогов   George Shuklin   24 Oct 2001 17:15:46   Re: Обход подкаталогов   Dmitry Savchenko   25 Oct 2001 09:19:40   Re: Обход подкаталогов   Alexander V. Gaiduk   25 Oct 2001 10:31:51   Re: Обход подкаталогов   omen   25 Oct 2001 13:30:34