ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Bulat Ziganshin                      2:5093/4.126   20 Mar 2002  19:13:30
 To : Andrey Sapozhnikov
 Subject : Regexp
 -------------------------------------------------------------------------------- 
 

 
 Wednesday March 20 2002, Andrey Sapozhnikov writes to Bulat Ziganshin:
 
  >>  IP>  $url=~ s/^(http\:\/\/)?(.*)$/http\:\/\/$2/igm;
  >>  IP> Вот это добавляется http:// если его нету. А как сделать то же
  >>  IP> самое, но чтобы добавлялось когда его нету и исходная строчка
  >>  IP> не пустая?
  >>
  >> добавь в конец "if $url"
 
  AS> Hомер не пройдет. Судя по ключам g и m это выражение натравливают на
  AS> блок текста содержащий много "строк".
 
 тогда замени "*" на "+"
 
 Bulat, mailto:bulatz-AT-fort.tatarstan.ru, ICQ: work 15872722, home 11849833
 
 ... Иногда для того, чтобы изменить свое восприятие мира,
 ... люди пытаются изменить сам мир
 --- GoldED+/W32 1.1.2
  * Origin: Сетевой фильтр на 5 базаров (2:5093/4.126)
 
 

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

Тема:    Автор:    Дата:    Regexp   Igor Paikin   20 Mar 2002 09:34:38   Regexp   Bulat Ziganshin   20 Mar 2002 15:48:44   Re: Regexp   Andrey Sapozhnikov   20 Mar 2002 16:44:54   Regexp   Bulat Ziganshin   20 Mar 2002 19:13:30   Regexp   Bulat Ziganshin   20 Mar 2002 19:26:27   Hедостаточные начальные условия   Igor Gerdler   20 Mar 2002 20:28:39