Программирование > Perl

reg exp

(1/1)

DartSidius:
Есть строка вида [crypt]tex1[/crypt][crypt2]text2[/crypt]

Мне нужно заменить [crypt]tex1[/crypt] & [crypt]tex2[/crypt] на некий код, внутри crypt код постоянно меняется...делаю так...но строка меняется полностью, засасывая всё целиком:

$var=~s/\\[crypt\\](.+)\\[\\/crypt\\]/$dataToCrypt/;

arto:
.+?

DartSidius:
так пробовал..не помогает...приведу полный код

$var = "[crypt]sometext[/crypt][crypt]sometext2[/crypt]";

if($var=~/\\[crypt\\](.+)?\\[\\/crypt\\]/) {
   print "\'$1\'

";
   $var=~s/\\[crypt\\]$1\\[\\/crypt\\]/$crypttext/;
}

выдает в принте целиком строчку : sometext[/crypt][crypt]sometext2

DartSidius:
Туплюю не там поставил \'?\'. СПасибо!

Навигация

[0] Главная страница сообщений