|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 24 Apr 2002 01:10:34
To : Roman =Kron= Karshiev
Subject : вот тебе решение твоей задачи...
--------------------------------------------------------------------------------
Привет еще раз!
RK> Вопрос, как бы заменить все переводы строк на
RK> <br>, кроме как в
RK> <pre>...</pre> и <xmp>...</xmp>?
#!/usr/bin/perl
$u=qq~f
g
<pre>
h
</pre>
i
j
<xml>u
a v
b
e
</xml>
r
r
~;
$u=~s%((pre|xml).*?/\2)|([\n\cM\cJ]+)%$1?$1:'<br>'%gesi;
print "$u";
причем почему и как работает этот регексп - я совершенно реально не
понимаю...
Дима
--
TEAM [Маньяки]
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
