|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Michael Belopolsky 2:6003/7.49 20 May 2002 14:02:37
To : Igor Brovchenko
Subject : Листинг директорий и файлов
--------------------------------------------------------------------------------
директорий и файлов, и я подумал:
IB> Что есть наподобие команды DIR в MS-DOS? Хотя бы небольшой пример
IB> скрипта, чтоб можно было разделять, что это файл или директория, а то
IB> readdir() - выводит информацию из которой не понять, что это файл или
IB> директория ?
Hу вот это - список директорий получает .... по аналогии и всё остальное. А
можно и не парится - просто получить список всего что есть, и пробежаться по
списку stat'ом
#!perl
$dir_str="d:/";
opendir MYDIR, $dir_str;
@dirs = grep { -d "$dir_str/$_" } readdir(MYDIR);
closedir (MYDIR);
for($i=0;$i<($#dirs+1);$i++)
{
print $dirs[$i]." - directory\n";
}
Унгль!
------------------------------------- O~O
FIDO: 2:6003/7.49 Michael Belopolsky |
INET: halfhuman@mail.ru \_/
--- F.I.P.S./32 v1.0r W95/NT [M]
* Origin: Лучше переформатировать, чем не донести. (2:6003/7.49)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
