| Как получить список файлов в директории |
[исправить] |
opendir (DIR,"$dir_path");
my @files=grep (!/^\.+$/,readdir (DIR)); # или foreach my $cur_file (readdir(DIR)){..}
closedir (DIR);
|
| |
|
|
27.08.2001
|
| Раздел: Корень / Программисту и web-разработчику / Perl / Работа с файлами |