|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/1978.3 03 Nov 2000 17:51:31
To : Afinogen
Subject : Re: Hесложный вопрос для специалистов
--------------------------------------------------------------------------------
Юґullo Afinogen!
A> Здравствуйте уважаемые специалисты !
A> Помогите пожалуйста разобраться со следующим вопросом:
A> Имеется :
A> $q='mama:ty4 rama=45t papa=32 lama=mamumba ';
A> $a1='papa=\w+|mama';
A> $q=~s/$a1//ig;
A> это нормально отрывает от строки элементы "mama" и "papa=32"
A> (как и должно быть...).
A> Вопрос :
A> как корректно сделать обратную операцию, что бы она не удаляла
A> эти элементы , а наоборот вычищала все остальное , что бы в итоге
A> получилось :
A> $q='mama papa=32 ';
A> Заранее благодарен за ответ ( можно по майл на адрес: usee96@aport.ru )
А зачем так самоистязаться? ;) Может так: $q = join ' ', $q =~ /$a1/g;
Кстати, задача некорректно поставлена: из твоего примера не понятно что
делать с пробелами.
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/1978.3 ДДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/1978.3)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Hесложный вопрос для специалистов