Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Я немного не понял 01.04.05 16:57 Число просмотров: 1919
Автор: NKritsky <Nickolay A. Kritsky> Статус: Elderman
|
> Например, если класс [qwerty], запрещённые символы [et], > замена идёт на 'something', то из строки 'ajkwyeuw' я > должен получить 'ajksomethinguw'. Как это сделать ума не > приложу. Можно, конечно, написать подпрограмму, которая > будет заниматься поиском по "стандартным" алгоритмам, но > хотелось бы обойтись малой кровью, т. е. регулярными > выражениями (важное условие - максимум одним, не считая > (?...), т. к. там есть ещё не относящиеся к теме нюансы).
в этом случае ты должен получить вроде бы ajksomethingeuw -ведь самая длинная разрешенная последовательность - wy
анивей - вот например так:
perl -e '$x="ajkwyeuw" ; $x=~s/[qwerty]+([^et])/something$1/g ; print "$x \n";'
ajksomethinguw
уж не знаю насколько это будет верно в остальных случаях. :)
|
|
|