ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  24 Jul 2000  14:50:42
 To : kron@beep.ru
 Subject : Re: Ещё один вопрос по регекспам
 -------------------------------------------------------------------------------- 
 

 kbr> В тексте (одна мультистрока) встречаются строки (подряд)
 
 kbr> что-угодно
 kbr> ...
 kbr> #lev ссылка, текст ссылки
 kbr> #lev ссылка2, текст ссылки2
 kbr> #lev ссылка3, текст ссылки3
 kbr> ...
 kbr> снова что угодно
 
 kbr> Требуется заменить все #lev ... на цепочку на <div align=right>Hавигация: 
 kbr> <a href=ссылка>текст ссылки</a> -> <a href=ссылка2>текс ссылки 2</a> -
 >> ...</div>
 
 kbr> Если без <div>...</div>, то я делаю так:
 
 kbr> $n=0;
 kbr> $s =~ s/#lev (.*),(.*)\n/$n++,($n==1?"Hавигация: ":"-> ")."<a 
 kbr> href=$1>$2<\/a>\n"/ge;
 
 kbr> какие будут предложения? :)
 
 s/((?:^#lev .*\n)+)/<div align=right>Hавигация:$1<\/div>/g;
 s/#lev (.*),(.*)\n/-> <a href=$1>$2<\/a>/g;
 
 Если у тебя такой фрагмент заведомо один, то первое g можно убрать.
 
 Hе проверялось.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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