Re: perlbug??

["alexander g. saltanov" <asdgray@yandex.ru>]

День добрый, Андрей!

В понедельник, 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>