ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Sagulin                       2:6037/1.28    11 Dec 2002  19:13:48
 To : Alexander Shevchenko
 Subject : поиск файлов
 -------------------------------------------------------------------------------- 
 

 
 10 Dec 02 16:07, Alexander Shevchenko wrote to Всем:
 
  AS> Сделал процедуру, которая показывает на экран список всеъ каталогов,
  AS> включая вложенные:
 
 [мишки гризли]
 
      Подражая Вишневскому: "Hе опошляй рекурсию local-ом". :)
 
 Это для перла 5.6.0 и новее:
 
 use warnings;
 use strict;
 use File::Spec;
 
 sub search($);
 
 sub search($) {
   my $dir = $_[0];
   opendir(my $dh, $dir) or die "$!";
   while(my $item = readdir($dh)) {
     next if ($item eq "." || $item eq "..");
     my $curfile = File::Spec->catfile($dir, $item);
     print "$curfile\n";
     search($curfile) if (-d $curfile);
   }
   close($dh);
 } # search
 
 search("/");
 Это для 5.005:
 
 use strict;
 use File::Spec;
 use DirHandle;
 
 sub search($);
 
 sub search($) {
   my $dir = $_[0];
   my $dh = new DirHandle $dir or die "$!";
   while(my $item = readdir($dh)) {
    next if ($item eq "." || $item eq "..");
    my $curfile = File::Spec->catfile($dir, $item);
    print "$curfile\n";
    search($curfile) if (-d $curfile);
   }
   undef $dh;
 } # search
 
 search("/");
 
                                                       Всего Вам...
                                                         Андpей.
 
 --- GoldED+/W32 1.1.5-20011130
  * Origin: Собери 10 крышечек от канализационных люков, и... (2:6037/1.28)
 
 

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

Тема:    Автор:    Дата:    поиск файлов   Alexander Shevchenko   10 Dec 2002 17:07:04   Re: поиск файлов   Artem Chuprina   11 Dec 2002 19:32:58   поиск файлов   Andrew Sagulin   11 Dec 2002 19:13:48   Re: поиск файлов   Nikolay Pichtin   12 Dec 2002 11:50:20   поиск файлов   Andrew Sagulin   12 Dec 2002 19:55:42   Re: поиск файлов   Gregory A. Yaklyushin   12 Dec 2002 21:53:30