|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Igor Gerdler 2:5020/400 20 Mar 2002 18:49:28 To : Igor Gerdler Subject : Как обычно, исправляем ошибки --------------------------------------------------------------------------------
Добрый день, уважаемые программисты на Perl!
Как обычно без ошибок не обошлось!
> Я бы сделал так:
> $url = 'http://'.$url if($url and $url =~ m|^http://|i);
Верный вариант:
$url = 'http://'.$url if($url and $url !~ m|^http://|i);
Всего доброго!
Игорь Гердлер
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/657704047dfc.html, оценка из 5, голосов 10
|