Forum Webscript.Ru

Программирование => Perl => Тема начата: fakeman от 28 Декабря 2002, 01:27:41

Название: dummy-вопрос
Отправлено: fakeman от 28 Декабря 2002, 01:27:41

народ, кодю недавно, не объясните почему не работает вот этот кусочек (после выполнения массив @files пустой). Вроде и доки перерыл и на сайте статьи читал - короче все как там сделал

opendir(CDIR, "c:/my/directory/with/files");
@files=;
print "@files\\n";

если че - слэш/бэкслэш менял...

PS все это на Win32, Active Perl 5.6.0

Название: dummy-вопрос
Отправлено: alex007 от 28 Декабря 2002, 01:43:53

Есть два варианта:
1)
opendir(CDIR, "c:/my/directory/with/files");
$files=;
closedir (CDIR);
print "$files\\n";

2)
opendir(CDIR, "c:/my/directory/with/files");
@files=;
foreach $files(@files)
closedir (CDIR);
print "$files\\n";

Исправте если я ошибаюсь.

Название: dummy-вопрос
Отправлено: fakeman от 28 Декабря 2002, 01:55:19

не катит... кстати второй вариант проще организовывается через $_ :)

Название: dummy-вопрос
Отправлено: YA от 28 Декабря 2002, 09:04:03

fakeman

Цитировать

Вроде и доки перерыл

Что-то не похоже.

opendir(DIR,"...") or die "...: $!";
@files=readdir DIR;
closedir(DIR);

Название: dummy-вопрос
Отправлено: fakeman от 30 Декабря 2002, 00:42:18

нет, серьезно смотрел... я просто думал что opendir работает аналогично open и не смотрел остальные функции касательно каталогов... спасибо за помощь