Сообщения

1

Perl / Всё по другому!

« : 26 Января 2002, 09:51:14 »

Спасибо вам! Но ваш код показывает лишь последнюю папку! Но это не важно.Там видно просто ошибка в цикле! Я уже сделал алгоритм(вернее взаимствовал) он более сложнее но работает как часы! Вот он!

    opendir (DIR, $directory) or &cgierr ("Не возможно открыть папку: \'$directory\'.\\nСообщение: $!");
    my @ls = readdir(DIR);
    closedir (DIR);
    FILE: foreach $file (@ls) {
        next FILE if  ($file eq \'.\');
        next FILE if ($file eq \'..\');

        $fullfile = "$directory/$file";
        if (-d $fullfile ) {
                $directory{$file} .= qq~$file\\n~;
            }
    }
    foreach (sort keys %directory) {
        push (@dirs,$directory{$_});
    }

Вот вроде этого!
Будут предложения по улучшению! Пишите я всё учту!
Да и есть у кого-нибудь хороший чат с внешними настройками?
Всем спасибо! Пока!