Исходное сообщение
"Марафон демонстраций возможностей Perl 6. Perl исполнилось 2..." Отправлено szh, 27-Дек-10 02:54
Спасибо. 1) бекреференсы не использовал, а теперь и подавно использовать не буду, простейший тест показал на ~30% медленее foreach(1..1000000) {     my $x = "aa vdf as1354df a2aa aa a ajrowfg q30f b b bb qwrw cb bb";     $x =~ s/(aa).*?\1/$1x/; } чем тоже самое с  s/(aa).*?aa/$1x/ 2) Regexp::Optimizer там упоминается, он работает наоборот с бекреференсом быстрее чем без; причем время тоже самое, но наоборот P.S. http://blog.chromium.org/2009/02/irregexp-google-chromes-new... http://code.google.com/p/re2/

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, [email protected] (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Спасибо. > 1) бекреференсы не использовал, а теперь и подавно использовать не буду, простейший > тест показал на ~30% медленее > foreach(1..1000000) { > my $x = "aa vdf as1354df a2aa aa a ajrowfg q30f > b b bb qwrw cb bb"; > $x =~ s/(aa).*?\1/$1x/; > } > чем тоже самое с s/(aa).*?aa/$1x/ > 2) Regexp::Optimizer там упоминается, он работает наоборот с бекреференсом быстрее чем > без; причем время тоже самое, но наоборот > P.S. > http://blog.chromium.org/2009/02/irregexp-google-chromes-new-regexp.html > http://code.google.com/p/re2/
	Введите код, изображенный на картинке: