Аналог Eregi В Perl

  • Автор темы aleksandrN
  • Дата начала
A

aleksandrN

Гость
#1
Ребят, помогите, написать строчку на Perl:

Код:
if (!eregi("https?://.+/.*", $url)){$url = $url . "/";}
Необходимо проверять url на наличие слэша / в конце адреса, и если отсутствует, то добавить.
 
T

typak

Гость
#2
Необходимо проверять url на наличие слэша / в конце адреса, и если отсутствует, то добавить.
могу рег. выражение написать по которому искать
#^http:\/\/(?:.*?)\/$#im вроде так.

а проще написать так
#^(?:.*?)\/$#m


Отак попробуй мож получится
PHP:
if (!eregi("#^(?:.*?)\/$#", $url)){$url = $url . "/";}
 
A

aleksandrN

Гость
#3
Спасибо. На другом форуме мне написали вот такой вариант:
$url .= "/" if $url !~ m!https?://.+/!i;
Вроде работает.