ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Paikin                          2:450/186      20 Mar 2002  13:09:32
 To : Andrey Sapozhnikov
 Subject : Re: Regexp
 -------------------------------------------------------------------------------- 
 

 You wrote to (Igor Paikin) on Wed, 20 Mar 2002 14:40:11 -0200:
 
  ??>>  $url=~ s/^(http\:\/\/)?(.*)$/http\:\/\/$2/igm;
  ??>> Вот это добавляется http:// если его нету. А как сделать то же самое, 
  ??>> но чтобы добавлялось когда его нету и исходная строчка не пустая?
  AS> Заменить .* на .+
 
 Такая ситуация добавит второй http:// для строки состоящей только из http://
 Думал об этом...
 
  AS> P.S. А для внеклассного чтения - perldoc perlre, в особенности на
  AS> предмет zero-width negative look-ahead, чтобы не заменять http:// на
  AS> http:// там где он уже есть. 
 
 Спасибо, почитал, но так и не придумал как сделать такое...
 
  AS> ( Впрочем, возможно так и задумано с целью приведения в lower case? )
 
 неа, хотя это мне нравится :)
 
 -- 
 With best regards, Igor Paikin.  E-mail: exemok@minsk2000.to
 --- FidolookSL 2002 UIExt. BuildID: 3C8B2071 (10/3/2002 10:59:29).
  * Origin: News IBA Gate (2:450/186)
 
 

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