Помогите с шаблоном Regexp

[Ardzhan]

Есть некоторый текст, заключенный в теги

:
Код: [Выделить]

12:30 Новости
12:50 Погода
13:00 Сериал

 
Если быть конкретным, то программка.
нужно все что между тегами prу привести к виду:
Код: [Выделить]

12:30Новости
12:50Погода
13:00Сериал

Причем нужно сделать это именно одной регуляркой...


$text="<pre>
12:30 ntst
34:56 ншек
23:12 рапов
</pre>";

$text=~s/(\\d{2}:\\d{2}){1} (.*)/\\\\<tr\\\\>\\\\<td\\\\>$1\\\\<\\\\/td\\\\>\\\\<td\\\\>$2\\\\<\\\\/td\\\\>\\\\<\\\\/tr\\\\>/gi;
print $text;

Но здесь проблема в том, что менять будет не только между тегами pre

[Ardzhan]

PS перед <> надо прослешить, форум, что-то код коверкает

[NeoNox]

use re \'debug\';

[Ardzhan]

и что дальше?

[NeoNox]

Ardzhan а дальше читать что тебе пишут.
Подсказка, ошибка тупая - сам будешь смеяться когда найдешь.

[Ardzhan]

так я ж и говорю, что эта регулярка заменит все, даже то, что вне тегов

... И отрабатывает она соответсвенно предполагаемому... А мне надо ее модифицировать, чтоб замену производила внутри 
..

[NeoNox]

use HTML::TokeParser;
$p = HTML::TokeParser->new(\\$text);

$temp = $p->get_text("pre", "/pre");
$temp =~ s/(\\d{2}:\\d{2})\\s+?(.*)/$1<\\/td>$2<\\/td><\\/tr>/gi;
print $temp;

[Ardzhan]

Ну не верю я, что такая задачка не решается одной регуляркой. Зачем мне модули подключать, я моги и так сделать:

$temp=~s/\\<pre\\>(.*?)\\<\\/pre\\>/$1/is)
$temp =~ s/(\\d{2}:\\d{2})\\s+?(.*)/<tr><td>$1<\\/td><td>$2<\\/td><\\/tr>/gi;

Те же яица, только в профиль... В том-то и заморочка, чтоб сделать именно одной регуляркой!!! Это уже просто вопрос принципа.

[vladsu]

Есть такая, прикольная, штуковина regexEvaluater.pl, но к сожалению линк дать не могу, парень видимо свалил с аркора, у меня есть она, если нужно могу намылить, если адрес дадите.

[Ardzhan]

Что за скрипт?

[NeoNox]

Ardzhan:
Ну не верю я, что такая задачка не решается одной регуляркой.

Верю-неверю это уровень детского сада. Есть идеи - пиши. Нет - слушай.

Ardzhan:
Зачем мне модули подключать, я моги и так сделать:
$temp=~s/

(.*?)

/$1/is)

Можешь. Велосипед тоже самолет, только летает низко.
Чтот твоя регулярка скажет на

 или < pre > или еще сотни две вариантов? Почитай кукбук перед тем как спорить
http://www.unix.org.ua/orelly/perl/cookbook/ch20_07.htm

[Ardzhan]

А мне и не надо обрабатывать сотни вариантов, мне надо именно