ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Ilya Anfimov                         2:5020/400     07 Apr 2002  18:49:56
 To : Fruzenkov Maxim
 Subject : Re: All
 -------------------------------------------------------------------------------- 
 

 On Sat, 6 Apr 2002 14:35:28 +0000 (UTC), 
 Fruzenkov Maxim <frumax@2mcl.com> wrote:
 
 >Привет многоуважаемый ALL!!!
 >
 >Как получить листинг какталогов (имеится в виду сортировка в каталоге
 >и получение листинга имен каталогов, при етом простые файлы
 >неотображаются)
 
 opendir DIR, $directory_name;
 if ($!) {
     die "Error opening $directory_name: ".$^E;
 };
 @list = readdir(DIR);
 if ($!) {
     die "Error reading directory $directory_name: ".$^E;
 };
 @filelist = sort ( grep { -d $directory_name.'/'.$_ } @list );
 >
 >С Уважением Максим.
 >
 >
 >
 >
 >-- 
 >Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    All   Fruzenkov Maxim   06 Apr 2002 18:35:28   Re: All   Ilya Anfimov   07 Apr 2002 18:49:56