opendir

[Billi]

Команда
opendir($d,".");
для открытия текужей директории
выдает ошибку
Bad symbol for filehandle
В чем может быть проблема?

[NeoNox]

Ссылку на словарь дать?
perldoc perldiag
Bad symbol for filehandle
    (P) An internal request asked to add a filehandle entry to something that wasn\'t a symbol table entry.

[Billi]

Хм..
No documentation found for "Bad".
No documentation found for "for".
Как открыть текущую директорию opendir?

[NeoNox]

Billi ты словарь так и не нашел?
1) используй дериктиву use strict; ВСЕГДА!!!
2) проверь что у тебя файлхендл для opendir и readdir, я на 99% уверен что они разные
opendir ($d, \'.\');
print foreach(readdir($d));

[NeoNox]

Курс молодого бойца для тебя лично:
1) открываем консоль
# perldoc perldiag
2) нажимаем кнопочку с символом \'/\' (слеш)
3) вводим название ошибки
3.1) жмем ентер
4) внимательно читаем
Все.

[Billi]

Я не пытаюсь завалить форум глупыми вопросами,
Сейчас переношу сайт с хоста на хаст 1 в 1
и когда один итот же скрипт выдает на одном хосте
нормальные результаты а на другом глючит, просто интересно естьли другой способ открыть текущую директорию
P.S.
Я не пытаюсь завалить форум глупыми вопросами

Ты сам то пробовал вот такое от траслровать

use strict;

opendir ($d, \'.\');
print foreach(readdir($d));
уменя получилось
Execution of location_.pl aborted due to compilation errors без обьяснений а без use strict; все ок (на локалке)

[NeoNox]

1) покажи мне кусок кода немного до и немного после opendir
2) на какую строку ошибка указывает
3) код должен был быть таким
use strict;
my $d;
opendir ($d, \'.\');
print foreach(readdir($d));

ничего что я не написал #!/usr/bin/perl в начале?

Billi:
просто интересно естьли другой способ открыть текущую директорию

есть куча способов но этот правильный

[Billi]

Спасибо.
Разобрался великий и ужастный Perl почемуто отказывался понимать такую конструкцию
opendir ($d, \'.\');
зато с опетитом скушал такую
opendir (DIR, \'.\')
Что интересто
а $ и был тем злополучным Bad symbol for filehandle