ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander V. Gaiduk                  2:5020/400     25 Oct 2001  10:31:51
 To : George Shuklin
 Subject : Re: Обход подкаталогов
 -------------------------------------------------------------------------------- 
 

 > Как получить список всех файлов во всех подкаталогах?
 
 &scandir("E:");
 
 sub scandir {
   my $d;
   my $nd;
   opendir(DIR, $_[0]);
   foreach $d (sort { $a cmp $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);
 }
 --- ifmail v.2.15dev5
  * Origin: Demos online service (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