ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vilfred                              2:5020/400     01 Sep 2001  13:41:15
 To : Alexander Babanov
 Subject : Re: need regex
 -------------------------------------------------------------------------------- 
 

 Привет!
 
 AB> Тут пробегала пару раз: выцепить подстроку с N
 AB> окружающими словами,
 AB> желательно по N/2 с каждой стороны, но если не
 AB> хватает - побольше
 AB> с другой. Я понятно излагаю? :)
 
 Hе понял про второе, первое типа этого(но может можна и лучше сделать):
 
 #!/usr/bin/perl
 $_=qq~
 
 muha hru 2x2 ubijtza, 
 
 razzzzdolbay.
 fluder foreva, poubival bi, svolochi nenavigu.
 
 gadi, paraziti. Vo pole berezka stoyala,
 
 sednia vdrug vziala i upala.
 
 kolbasno!
 ~;
 $n=5;
 if(
   /((\w+[,\.\n^\s]*){$n})
   (\s*vdrug\s*)
   (([\s,\.\n^]*\w+){$n})/x
 ){
   print "$1 $3 $4\n";
 }
 
 Дима
 
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    need regex   vilfred   31 Aug 2001 22:40:51   Re: need regex   Alexander Babanov   31 Aug 2001 16:40:04   Re: need regex   vilfred   01 Sep 2001 13:41:15   Re: need regex   Ruslan Bondarev   01 Sep 2001 17:38:11   Re: need regex   Alexander Babanov   02 Sep 2001 15:22:19   Re: need regex   Konstantin Stupnik   03 Sep 2001 11:12:59   Re: need regex   Alexander Babanov   03 Sep 2001 19:07:03   Re: need regex   Konstantin Stupnik   04 Sep 2001 16:39:58