The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

Как получить рекурсивный список файлов
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
Ключи: ip, file, path / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Работа с файлами

 Добавить комментарий
Имя:
E-Mail:
Заголовок:
Текст:




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру