ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : eugene v rehov                       2:5025/245     18 Jun 2002  22:53:42
 To : aLl
 Subject : Список директорий
 -------------------------------------------------------------------------------- 
 

 не могу сделать сабж. :( за перл сижу всего 2 часа =)
 
 делал так
 
 ----------=[ Цитирую файл rrr ]=----------
 #!/usr/bin/perl
 
 opendir FDIR, "/home/fido/bin";
 
 print ("start");
 
 while( $name = readdir FDIR) {
   if( -d($name) ){
     print("$name\n");
   }
   next if -d $name;
 }
 
 closedir FDIR;
 ----------=[    Конец цитаты    ]=----------
 Выводит только
 .
 ..
 
 С правами доступа все нормально
 
 И еще пробовал вот такие конструкции
 
 -------------------------------------------
 @files = glob( -d("*") ); # Откуда взял это сам себе объяснить не могу...
 print("@files");
 -------------------------------------------
 while( -d(<*>) ) { print; print("\n"); };
 eugene
 
 --- (c) eugene v rehov, 18 Jun 02  22:53
  * Origin: ::cOMa::Time::00:00-06:30::Phone::337-774:: (2:5025/245)
 
 

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

Тема:    Автор:    Дата:    Список директорий   eugene v rehov   18 Jun 2002 22:53:42   Список директорий   Sergey Tkachuk   19 Jun 2002 11:44:12