ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ruslan Bondarev                      2:463/94.12    17 Jul 2001  20:35:59
 To : All
 Subject : regexp
 -------------------------------------------------------------------------------- 
 

 Разыскивается красивый регексп для решения такой задачи:
 Задан некий список шаблонов слов или частей слов, нужно отматчить все вхождения 
 шаблонов в строке и выдать сам шаблон, обрамленный N словами слева или справа.
 (если нет N слова, то выдать то что есть или ничего)
 
 Hичего кроме
 $\ = "\n";
 for $pat (@patterns)
 {
   print $1 while (/(\w*\W*\w*$pat\w*\W*\w*)/igo);
 }
 в голову не лезет, но это некрасивое решение + только по одному слову
 обрамление.
 
 ... bye.
 --- Медленно любила, пережевывая...
  * Origin:  (2:463/94.12)
 
 

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