VPF::Аналог Eregi В Perl - Форум программистов

Дата 28.10.2011, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 28.10.2011

Репутация: нет
Всего: нет

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

Код


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

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

Дата 28.10.2011, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 6
Всего: 39

Код


$url .= "/" if $url !~ m!https?://.+/!i;

--------------------

Дата 28.10.2011, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 28.10.2011

Репутация: нет
Всего: нет

Цитата(Pfailed @ 28.10.2011, 19:06)

Код


$url .= "/" if $url !~ m!https?://.+/!i;

Большое спасибо. Буду пробовать.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Регулярные выражения \| Следующая тема »