ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Victor McSmith                       2:5020/496.22  15 Jan 2001  15:07:18
 To : All
 Subject : Рекурсия
 -------------------------------------------------------------------------------- 
 

 
 Где я ложаюсь?
 Мне нужно рекурсивно пройти по дереву каталогов (приняв за корень некий каталог)
 и в каждом каталоге выполнить некую функцию.
 Результат следующий - скрипт проходит только одну ветвь до конца и... все.
 
 #!/usr/bin/perl
 
 #=[ options ]==================================================
 $RDir = "/home/archiv";     # некий корневой каталог
 #=[ main ]=====================================================
     chdir ($RDir);
     &Recurse();
 
 #=[ functions ]================================================
 sub Recurse()
     {
     local $UnitLstDir;
     local $NextDir = $_[0];
     if (defined($NextDir))
         {chdir($NextDir)}
         else {chdir $RDir};
     &TakeInfo();                            # Hекая процедура, выполняемая
                                             # в каждой директории
     while (defined($UnitLstDir = <./*>))
         {
          if (-d $UnitLstDir)
             {
             $UnitLstDir =~ s/^.\///;
             &Recurse($UnitLstDir);
             };
         };
     }
 
 sub TakeInfo()
     {
     print "TakeInfo      ".`pwd`;
     };
 #==============================================================
 Да будет твой путь длинней, чем тропа за спиной!
                                                 Victor
 --- GoldED/LNX 3.00.Beta5 UNREG
  * Origin:  (2:5020/496.22)
 
 

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

Тема:    Автор:    Дата:    Рекурсия   Victor McSmith   15 Jan 2001 15:07:18   Рекурсия   Ivan Frolcov   15 Jan 2001 16:19:59   Рекурсия   Victor McSmith   15 Jan 2001 17:41:34   Re: Рекурсия   Alexander V. Gaiduk   15 Jan 2001 18:41:43   Re: Рекурсия   Ilia Semenov   21 Jan 2001 17:06:31   Re: Рекурсия   Sergey Tkachuk   25 Jan 2001 09:08:00   Re: Рекурсия   Alexander V. Gaiduk   16 Feb 2001 14:06:41   Re: Рекурсия   Serge Shikov   16 Feb 2001 14:39:11   Re: Рекурсия   Alexander V. Gaiduk   16 Feb 2001 16:08:48   Re: Рекурсия   Serge Shikov   16 Feb 2001 17:18:00   Рекурсия   Aleksey Kotov   18 Feb 2001 11:48:17   Рекypсия   Alexander Tsarev   20 Feb 2001 22:34:45   Re: Рекypсия   Serge Shikov   21 Feb 2001 12:22:42   Рекурсия   Yan Alexandrovsky   21 Feb 2001 08:28:27   Рекурсия   Maxim Sereda   18 Feb 2001 23:09:03   Рекурсия   Oleg Bakiev   15 Jan 2001 17:39:05   Re: Рекурсия   Vitaliy T Morarian   27 Jan 2001 01:57:26