Тут скорее дело в Захвате и построение обратных ссылок для них, на 16+ явно
замедляется
Вот переменная без захватом отработает быстро
my $regexp16 = qr('
(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:3\s*?(?:[^a-z]\s*?)+?r)
|(?:2\s*?(?:[^a-z]\s*?)+?r)
');
Так что думаю стоит уменьшить количество захватов.
Ну или как в книге пишут если можно то
вместо /a|b/
пишите /a/ || /b/
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
