VPF::Странное поведение readdir() - Форум программистов

rcdimon

Дата 9.7.2006, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

Мне надо сканировать лиректории и выводить список найденных в них файло и папок. Необходимо различать между собой файлы и папки. Для этого у меня есть такой код:

Код


opendir(TMPDIR,'.');
        my @a = readdir (TMPDIR);    
    closedir(TMPDIR);
    
    foreach (@a){
        if (-f $_){
            print "File $_ <br>";
        } elsif (-d $_) {
            print "Path $_ <br>";
        } else {
            print "unknown $_ <br>";
        }
    }

Эта программка выводит:

Path .
Path ..
File 1.tst
File admin.cgi
File Alfa.kpf
Path libs
File main.cgi
Path modules
File Myconfig.pm
File webcmd.cgi

То-есть все выводит верно. Показывает список и паишет кто из них папка а кто файл. Но если вместо директории . для поиска указать любую другую например ../ то он уже не может отличить папки от файлов и выводит так:

Path .
Path ..
unknown cgi
unknown cgi-bin
unknown error.log
unknown subdomain
unknown www

Что естественно мне не нравится... Потому что мне надо иметь возможность указывать любой путь для сканирования директории....

Подскажите пожалуйста в чем дело.

sharq

Дата 9.7.2006, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 23
Всего: 28

rcdimon, все очень просто, это не readdir виноват, а разработчик.

Когда ты запускал в первый раз, то сканировалась текущая директория, т.е. - .
И для проверки файл или директория ты указывал:

Цитата(rcdimon @ 9.7.2006, 13:29

)

-f $_

Цитата(rcdimon @ 9.7.2006, 13:29

)

-d $_

где $_ - это имя файла/директории, кот. находятся в текущей директории.

Во второй раз ты сканировал директорию на уровень выше, а проверял прочитанные файлы/директории в текущей директории.
Т.е. при проверке ты не указал путь к прочитанным файлам/директориям.

Поэтому:

Код


my $path = 'your_path/';
opendir my $dir, $path;
foreach (readdir $dir) {
        if (-f $path.$_){
            print "File $_ <br>";
        } elsif (-d $path.$_) {
            print "Path $_ <br>";
        } else {
            print "unknown $_ <br>";
        }
}

--------------------

[color=gray]There's More Than One Way To Do It[/color]

rcdimon

Дата 9.7.2006, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

Вау! Супер smile

r777

Дата 29.9.2007, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 23.9.2007

Репутация: нет
Всего: нет

sharq,

блин и плюсик не мог поставить :(

- то, что я и искал полдня ! smile

спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »