Возникла проблема с быстродействием регулярных выражений в Perl.
Может кто поделится опытом как написать наиболее быстрый вариант?
Задача состоит в следующем, нужно в тексте заменять строку вида [img1 width=10 height=10] на <img src="/photos/100-1.jpg" width="10" height="10">, причем width=10 и height=10 может и не быть.
Я делал так:


Я понимаю что это не самы удачный вариант. Как сделать лучше?
Да, размер $text может доходить до 65Кб.
Спасибо.

SadMan, в данной ситуации нужно просто обходиться вообще без regexp. Серьезно. А просто сделать принудительно заменой одних подстрок на другие. И всё.

Это как? Что значит: принудительно заменой одних подстрок на другие

SadMan, Это значит:
1. Функцией разбить длинную строку на массив строк, разрезав её по характерной подстроке, "[img" к примеру.
2. Прогнать собственно по этому массиву цикл замены.
3. Внутри цикла принудительно ручками искать нужные подстроки, и заменять:
- "[img1" => "<img src=/photos/100-1.jpg", циферку ручками определить
- width и height можно вообще не заменять, они и без кавычек хороши.
- "]" аккуратненько на ">", чтобы текст не попортить
4. Склеить массив обратно в строку, а можно и не клеить.
5. Плюнуть массивом или строкой в посетителя сайта.


Идея в том, чтобы не гонять обработку регулярных выражений на длинных строках. Эта операция действительно время жрет очень сильно.

Цитата:

они и без кавычек хороши

Хороши, да не очень. Лучше ставить в кавычках для соответствия со спецификацией xhtml.