|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : vilfred 2:5020/400 23 Apr 2002 22:57:14
To : Rick Atreides
Subject : Re: дерево каталогов на вложенных хешах...
--------------------------------------------------------------------------------
Привет!
> Rick Atreides <rick@nnz.ru> пишет:
Блииииин, Клева!!! Рик Атредис, род Атредисов и Харкононы...
Спасибо большое за наводку! :)
RA> Это-же класика жанра
RA> $root = GetDir('.');
RA> sub GetDir {
RA> my $Path = shift;
RA> my %DirHash;
RA> my @DirContent;
RA> opendir(DIR, "$Path");
RA> @DirContent = grep { !/^\.{1,2}$/} readdir(DIR);
RA> closedir(DIR);
RA> foreach $file (@DirContent) {
RA> print "$Path/$file\n";
RA> if (-d $file) { $DirHash{$file} =
RA> GetDir("$Path/$file"); }
RA> else { $DirHash{$file} = -1; }
RA> }
RA> return \%DirHash;
RA> }
RA> И потом соответсвенно парсишь потом если хеш = -1
RA> (или проверяй на наличие
RA> файла), то файло, а иначе идём глубже.
RA> Типа
RA> $a = \%{$root{'/usr'}};
RA> $a = \%{$a{'/local'}};
RA> $a = \%{$a{'/etc'}};
только одного не понял, как определять названия хешей root, a...
RA> etc :-))
RA> Рабочий пример взят из скрипта посторения
RA> индексной базы для поиска.
RA> Ромик.
Дима
p.s. блин, род Атреди... клевый фильм!!!
--
TEAM [Маньяки]
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
