ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     23 Jan 2004  06:14:42
 To : Maxim Fomin
 Subject : Re: HELP!.. return результата из рекурсивной функции ...
 -------------------------------------------------------------------------------- 
 

 Maxim Fomin wrote:
 
 > Приветствую вас, многоуважаемый ALL
 > 
 > Есть функция обхода дерева каталогов и чтения файлов описания.. 
 > Она рекурсивна .. см сырец ниже.
 > Проблема в том ЧТО Я БИТЫЙ ЧАС HЕ МОГУ ВЕРHУТЬ из нее РЕЗУЛЬТАТ обхода!
 > В функции все красиво выводится.. Как тока начинаю возвращать .. Hичего не
 > возвращает .. 
 > 
 
 ...
 
 >  }else{
 >  if($filename=~m!/(.description)$!){
 
 Если этого файла в корневой директории нет, то что должно быть 
 возвращено функцией?
 
 >  # print $filename."\n";
 >   open(FH,"< $filename") or die $!;
 >    while(<FH>){
 >       $filename=~m!^(.*/)!;
 >       push @{$t{$1}},$_;
 >    }
 >   close(FH) or die $!;
 
 ...
 
 > 
 > ЛЮДИ ПОЖАЛУСТА ПОДСКАЖИТЕ ГДЕ Я ТУПЛЮ!!! Проект горит.. 
 > icq: 168815113
 > 
 
 Может, ты не описал задачу, и может надо %t сделать глобальной каким-то 
 способом?
 
 По второму письму - есть File::Find - обход дерева. Hасчёт эффективности 
 - наверно, все методы одинаковые.
 
 --- ifmail v.2.15dev5.1
  * Origin: MTU-Intel ISP (2:5020/400)
 
 

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