ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     20 Mar 2002  17:05:23
 To : Igor Paikin
 Subject : Re: Regexp
 -------------------------------------------------------------------------------- 
 

 Igor Paikin wrote:
 
 > Hello, All!
 > 
 >  $url=~ s/^(http\:\/\/)?(.*)$/http\:\/\/$2/igm;
 > Вот это добавляется http:// если его нету. А как сделать то же самое, но чтобы
 > добавлялось когда его нету и исходная строчка не пустая?
 
 Заменить .* на .+
 
 Андрей
 
 P.S. А для внеклассного чтения - perldoc perlre, в особенности на предмет
 zero-width negative look-ahead, чтобы не заменять http:// на http:// там
 где он уже есть. ( Впрочем, возможно так и задумано с целью приведения в
 lower case? )
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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