Re: perlbug??
День добрый, Андрей!
В понедельник, 22 октября 2001 г. Вы написали:
AI> Ниже простенький скрипт.
Тоже не сложный:
------------------------
opendir(DIR, ".");
while (defined($file = readdir(DIR))) {
push @files, $file;
}
closedir(DIR);
$" = "\n";
print "@files";
------------------------
Если надо в глубину закапываться -- ещё проще:
------------------------
use File::Find;
find({ push @files, $File::Find::name }, ".");
$" = "\n";
print "@files";
------------------------
С уважением,
Александр Салтанов, он же ASD. <a href="mailto:asdgray@yandex.ru">
[I'm all around the Internet]</a>
Reply to:
- References:
- perlbug??
- From: Andrey Ivashchenko <bako@mast.kharkov.ua>