Аналог Eregi В Perl

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

  1. aleksandrN

    aleksandrN Гость

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

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

    typak Гость

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

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


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

    aleksandrN Гость

    Спасибо. На другом форуме мне написали вот такой вариант:
    $url .= "/" if $url !~ m!https?://.+/!i;
    Вроде работает.
     
Загрузка...
Похожие Темы - Аналог Eregi Perl
  1. wellsun
    Ответов:
    0
    Просмотров:
    128
  2. oshmianski
    Ответов:
    7
    Просмотров:
    744
  3. DNT
    Ответов:
    13
    Просмотров:
    1.302
  4. ESWANT
    Ответов:
    0
    Просмотров:
    1.324
  5. Dragon108
    Ответов:
    6
    Просмотров:
    2.451

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