ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander V. Gaiduk                  2:5020/400     15 Jan 2001  18:41:43
 To : All
 Subject : Re: Рекурсия
 -------------------------------------------------------------------------------- 
 

 >Пpивет, почтенный All!
 >
 >Где я ложаюсь?
 >Мне нужно рекурсивно пройти по дереву каталогов (приняв за корень некий
 >каталог) и в каждом каталоге выполнить некую функцию.
 >Результат следующий - скрипт проходит только одну ветвь до конца и... все.
 >
 >#!/usr/bin/perl
 >
 
 что то ужасно длинное поскипано.
 
 у меня вот такое работает:
 
 #########################################
 &scandir("C:\\");
 
 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);
 }
 #########################################
 
 для униха слэши поменяй в другую сторону и по одному  :)
 
 =GAV
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Рекурсия   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