ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Afinogen 2:5020/400 03 Nov 2000 19:24:20
To : All
Subject : Hесложный вопрос для специалистов
--------------------------------------------------------------------------------
Здравствуйте уважаемые специалисты !
Помогите пожалуйста разобраться со следующим вопросом:
Имеется :
$q='mama:ty4 rama=45t papa=32 lama=mamumba ';
$a1='papa=\w+|mama';
$q=~s/$a1//ig;
это нормально отрывает от строки элементы "mama" и "papa=32"
(как и должно быть...).
Вопрос :
как корректно сделать обратную операцию, что бы она не удаляла
эти элементы , а наоборот вычищала все остальное , что бы в итоге
получилось :
$q='mama papa=32 ';
Заранее благодарен за ответ ( можно по майл на адрес: usee96@aport.ru )
--- ifmail v.2.15dev5
* Origin: has no name (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
