ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Gaiduk                     2:5020/400     31 Aug 2000  14:08:06
 To : All
 Subject : Re: opendir etc...
 -------------------------------------------------------------------------------- 
 

 >>хотел вопрос такой спросить - как можно открыть диру, а потом readdir так,
 >>чтобы все файлы в поддиректория там тоже оказались? perldoc -f opendir,
 
 readdir
 
 >>и прочее читал - не нашел...
 >>
 >
 >А ты уверен, что где-то есть язык, в котором такое возможно?
 >Hе думаю.
 >Т.ч. пиши рекурсивную функу.
 
 угу:
 
 &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: InterGalactic MegaTrash Co. (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    opendir etc...   Alexander Bolotnov   31 Aug 2000 09:46:05   Re: opendir etc...   Leonid Nikolaev   31 Aug 2000 11:06:37   Re: opendir etc...   Mikhail Akopov   31 Aug 2000 11:42:36   Re: opendir etc...   Alexander Gaiduk   31 Aug 2000 14:08:06   Re: opendir etc...   Alexander Babanov   31 Aug 2000 04:11:18   Re: opendir etc...   Artem Chuprina   01 Sep 2000 13:05:30