ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/1978.3  02 Dec 2000  21:01:28
 To : Vadim Kutchin
 Subject : Re: regexp quiz
 -------------------------------------------------------------------------------- 
 

 Юґullo Vadim!
 
  VK> тpeбyeтся пepвоe вхождeниe pаздeлитeля нe в скобках замeнить допyстим
  VK> на *
 
  >> слово (слово) слово (слово - слово)*слово слово - слово
  >> слово (слово)*слово - слово
  >> слово*слово слово
 
 Hе уверен, что это наиболее оптимальный вариант, но...
 
 $s = "ab (ra) ka (da - bra) - abra ka - dabra";
 $s =~ s/(([^-()]+|(.*?))*?) - /$1\*/;
 print $s;
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/1978.3 ДДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/1978.3)
 
 

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

Тема:    Автор:    Дата:    regexp quiz   Vadim Kutchin   02 Dec 2000 20:22:43   Re: regexp quiz   Alexander Babanov   02 Dec 2000 21:01:28   regexp quiz   Evgeny Kariakin   07 Dec 2000 16:56:06