ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Tkachuk                       2:5040/33.50   19 Jun 2002  11:44:12
 To : eugene v rehov
 Subject : Список директорий
 -------------------------------------------------------------------------------- 
 

 18 Jun 02 22:53, you wrote to all:
 
  er> ----------=[ Цитирую файл rrr ]=----------
  er> #!/usr/bin/perl
 
  er> opendir FDIR, "/home/fido/bin";
 
  er> print ("start");
 
  er> while( $name = readdir FDIR) {
  er>   if( -d($name) ){
  er>     print("$name\n");
  er>   }
  er>   next if -d $name;
  er> }
 
  er> closedir FDIR;
  er> ----------=[    Конец цитаты    ]=----------
  er> Выводит только
  er> .
  er> ..
 
 В имени файла, возвращаемом readdir, нет пути.  Т.е. проверять надо
 -d "/home/fido/bin/$name"
 
 Sergey
 
 --- GoldED+/LNX 1.1.4.7
  * Origin: www.lovehate.ru - выскажись! (2:5040/33.50)
 
 

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

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