ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ruslan Sulemanov                     2:4635/1024.27 23 Feb 2003  13:11:35
 To : All
 Subject : prog error
 -------------------------------------------------------------------------------- 
 

 
 Помогите развиснyть :-), не поймy почемy цыкл закливается, есть ли
 какие-нибyдь предложения по этомy поводy ?
 
 ........
 sub soonpos
 {
 undef $word;
 local $word=shift @_;
 $_=$fullpaga;               # $fullpaga - весь текст в одной строке
    while(/$word/gc)         # $word - слово из текста
        {
         undef $fopos;
         $fopos= pos;
         $poswd.=$fopos." ";  <-----  цыклит на этой строке
         }
 return $poswd;
 }
 ......
 
 Заранее благодарен!
 
 p.s обработка слyжебных символов делается для $word (типа $word=~s|\?|\\?|g; и
 так для всех слyжеб.символов)
 
                                                               RSR
 --- GoldED+/386 1.0.0
  * Origin: E-mail: support@icu.net.ua (2:4635/1024.27)
 
 

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

Тема:    Автор:    Дата:    prog error   Ruslan Sulemanov   23 Feb 2003 13:11:35   Re: prog error   Artem Chuprina   23 Feb 2003 16:58:07   prog error   Ruslan Sulemanov   24 Feb 2003 11:12:05   Re: prog error   Artem Chuprina   25 Feb 2003 01:00:54   prog error   Ruslan Sulemanov   25 Feb 2003 13:37:16   prog error   Renat Araslanow   25 Feb 2003 23:26:49   prog error   Ruslan Sulemanov   27 Feb 2003 16:49:43   prog error   Renat Araslanow   01 Mar 2003 13:30:56   prog error   Ruslan Sulemanov   02 Mar 2003 15:15:01