Как получить рекурсивный список файлов |
[исправить] |
use File::Find;
sub get_file{
my ($file_name) = $_;
my $file_fullpath = $File::Find::name;
my $file_dir = $File::Find::dir;
}
find (\&get_file, "/usr/some/dir");
|
|
|
27.08.2001
|
Раздел: Корень / Программисту и web-разработчику / Perl / Работа с файлами |