1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

Аналог Eregi В Perl

Тема в разделе "Perl программирование", создана пользователем aleksandrN, 28 окт 2011.

  1. aleksandrN

    aleksandrN Гость

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

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

    typak Гость

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

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


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

    aleksandrN Гость

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

Поделиться этой страницей