ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Yurevich                      2:5020/400     08 Sep 2001  13:08:00
 To : All
 Subject : Про получение списка фа  йлов
 -------------------------------------------------------------------------------- 
 

  Вот состряпал код, который бы получал список файлов в 
 каталоге и подкоталогах, но что-то не хочет работать. Исправьте плз что 
 неправильно.
 &get_list("$SEARCH_DIR");
 sub get_list {
 local($SEARCH_ROOT, $search_sub) = @_;
 chdir("$SEARCH_ROOT$search_sub");
 local(@filenames) = <*>;
 local($file);
 foreach $file (@filenames) {
 if (-d $file && -r $file){
 if ($search_dir){&get_list (SEARCH_ROOT, "$search_sub$file");}
 else{&get_list (SEARCH_ROOT, $file);}
 }
 else {&search_in_file ("$file");}
 }}
 
 --- ifmail v.2.15dev5
  * Origin: Bussines System (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Про получение списка фа йлов   Sergey Yurevich   08 Sep 2001 13:08:00   Re: Про получение списка фа йлов   Popov Nikita Valentinovich   08 Sep 2001 13:48:24