|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Igor Gerdler 2:5020/400 20 Mar 2002 17:00:41
To : Igor Paikin
Subject : Мой вариант
--------------------------------------------------------------------------------
Добрый день, уважаемый Игорь!
> $url=~ s/^(http\:\/\/)?(.*)$/http\:\/\/$2/igm;
> Вот это добавляется http:// если его нету. А как сделать то же самое, но
чтобы
> добавлялось когда его нету и исходная строчка не пустая?
Я бы сделал так:
$url = 'http://'.$url if($url and $url =~ m|^http://|i);
Всего доброго!
Игорь Гердлер
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
