Аналог Eregi В Perl

[aleksandrN]

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

if (!eregi("https?://.+/.*", $url)){$url = $url . "/";}

Необходимо проверять url на наличие слэша / в конце адреса, и если отсутствует, то добавить.

 

[typak]

Необходимо проверять url на наличие слэша / в конце адреса, и если отсутствует, то добавить.

могу рег. выражение написать по которому искать
#^http:\/\/(?:.*?)\/$#im вроде так.

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


Отак попробуй мож получится

if (!eregi("#^(?:.*?)\/$#", $url)){$url = $url . "/";}

 

[aleksandrN]

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