День добрый, Андрей! В понедельник, 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:[EMAIL PROTECTED]"> [I'm all around the Internet]</a>