dummy-вопрос

[fakeman]

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

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

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

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

[alex007]

Есть два варианта:
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";

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

[fakeman]

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

[YA]

fakeman

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

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

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

[fakeman]

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