Как получить Host из Url?

Тема в разделе "Perl программирование", создана пользователем kozitsin, 29 июн 2008.

  1. kozitsin

    kozitsin Гость

    Всем привет!

    Подскажите пожалуйста, мучаюсь уже целый день :), вопрос в следующем:

    есть url, например - "http://codeby.net/ipb.html?act=post&do=new_post&f=48", как из него получить хост - "http://codeby.net", при том, что это может быть домен как первого, так и второго уровней и т.д., плюс ко всему могут быть разные зоны (ru, net т.д.). Пытался сделать с помощью регулярных выражений, но видимо знаний не хватает :).

    Заранее спасибо за ответ!
     
  2. Vovochka

    Vovochka Гость

    Код (Text):
    $url =~ /((?:http:\/\/).+?)[\/\?]?/;
    $host = $1;
     
  3. kozitsin

    kozitsin Гость

    Попытался протестировать Ваше решение, вот что получилось - "http://f" от адреса - "http://codeby.net/forum/threads/24526.html". :)

    Как можно это исправить? Спасибо
     
  4. Vovochka

    Vovochka Гость

    Код (Text):
    $url =~ /(http:\/\/[^\/\?]+)/;
    Да.... Оказывается с лету то и не получилось составить.
     
  5. kozitsin

    kozitsin Гость

    Большое спасибо! Заррработало :)
     
Загрузка...

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