[Moscow.pm] perlre & backtracking

[Oleg Alexeenkov]

Здравствуйте, Sergey.

Вы писали 30 сентября 2008 г., 18:27:25:

> Требуется помощь.
> Делаю регексп, который выбирает N символов, причём HTML entitie должно считаться за 1 символ.
> print 'оx' =~ /(?>&#[0-9]+;|\S){3}/;
> мачиться успешно, хотя "символа" всего 2.
> Подскажите, где я неправ?

irc.rusnet.ru/#perl
[21:42:35] <wd> pb, print "&#1086;xyz"=~/((?:&#\d+;(*SKIP)|.){3})/
[21:42:41] <pb> wd, &#1086;xy
[21:42:44] <wd> pb, print "&#1086;xyz"=~/((?:&#\d+;(*SKIP)|.){8})/
[21:42:44] <pb> wd, Результат: 1 (stdout пустой)
[21:42:50] <wd> таки можно

-- 
С уважением,
 Oleg                          mailto:proler на gmail.com