ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Roman Karshiev                       2:5020/400     19 Jul 2000  16:22:07
 To : All
 Subject : Ещё один вопрос по регекспам
 -------------------------------------------------------------------------------- 
 

 В тексте (одна мультистрока) встречаются строки (подряд)
 
 что-угодно
 ...
 #lev ссылка, текст ссылки
 #lev ссылка2, текст ссылки2
 #lev ссылка3, текст ссылки3
 ...
 снова что угодно
 
 Требуется заменить все #lev ... на цепочку на <div align=right>Hавигация: 
 <a href=ссылка>текст ссылки</a> -> <a href=ссылка2>текс ссылки 2</a> -
 
 > ...</div>
 
 Если без <div>...</div>, то я делаю так:
 
 $n=0;
 $s =~ s/#lev (.*),(.*)\n/$n++,($n==1?"Hавигация: ":"-> ")."<a 
 href=$1>$2<\/a>\n"/ge;
 
 какие будут предложения? :)
 
 -- 
 =KRoN=
 http://kron.al.ru - Грёзы, Двери, Hебо...
 ICQ#4886816
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор