Решено: Регулярка (perl)

[nuclear17]

Есть регулярка $text=~m/<\s*(.+?)\s*>((.*?\n?)*)<\/\s*\1\s*>/gi

такую штуку
<? xml ?>
<test>
abchfss
</test>
<ls>
abcdfasd
</ls>
<ln>
daasdf
</ln>
<lala>abcdgs</lala>

обрабатывает секунд 30, в случае чегото такого
<? xml ?>
<test>
<t>abchfss</t>
<ls>abcdfasd</ls>
<lala>abcdgs</lala>
</test>
<test>
<t>test</t>
<ls>test2</ls>
<lala>test3</lala>
</test>
<ln>
daasdf
</ln>

вообще зависает наглухо. В чем может быть причина? заранее спасибо.

[drBatty]

Есть регулярка $text=~m/<\s*(.+?)\s*>((.*?\n?)*)<\/\s*\1\s*>/gi

хороший пример тормознутости нежадных выражений ;)
спасибо

[nuclear17]

нашел решение путем замены (.*?\n?)* на (?s:.*?).
Вопрос номер 2 что означает ?s: ?

[NickLion]

Нежадные + * очень плохо сказываются на скорости. Замените хотя бы (.+?) на ([^>\s]+) и скорость повысится.

[NickLion]

(?: ) используется для группировки без выделения в \1, \2 и т.п.
(?s: ) - дополнительно флаг интерпретировать как однострочное выражение

[nuclear17]

Всем спасибо, тему можно закрывать