![]() |
Модераторы: korob2001, ginnie |
![]() ![]() ![]() |
|
Ace Wentura |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 161 Регистрация: 19.2.2004 Где: Санкт-Петербург Репутация: нет Всего: нет |
Собственно, задача - получить доменное имя из URL.
То есть при URL www.yandex.ru/jshfgsdf/fksdhdfw/vshgvwef/sdfkwjf должно возвращаться www.yandex.ru. Но и на http:// и на всякие там org.net.spb.ru/sndfvjdsf/jshfgsdf/ тоже должно нормально реагировать. Может есть стандартные средства? |
|||
|
||||
korob2001 |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2871 Регистрация: 29.12.2002 Репутация: 13 Всего: 61 |
Написал такую подпрограмму get_domain, в качестве параметра, она принимает url, а затем возвратит его доменное имя.
Может я конечно не всё учёл, но url такого плана как в массиве @urls, она обработает как надо. Если будут вопросы по коду, пиши. Удачи. -------------------- "Время проходит", - привыкли говорить вы по неверному пониманию. "Время стоит - проходите вы". |
|||
|
||||
GoodBoy |
|
|||
![]() Главный джедай ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 3886 Регистрация: 8.1.2003 Где: КМВ Репутация: 4 Всего: 83 |
Ace Wentura
самый простой вариант:
|
|||
|
||||
Ace Wentura |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 161 Регистрация: 19.2.2004 Где: Санкт-Петербург Репутация: нет Всего: нет |
Спасибо большое за код. На его основе написал ещё один, которым реализовал ещё кое-какие возможности, которые забыл описать. Нужно было ещё выдирать IP из адресов.
Вот код. Может кому пригодиться :-)
Есть извращения, конечно, но... :-) |
|||
|
||||
GoodBoy |
|
|||
![]() Главный джедай ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 3886 Регистрация: 8.1.2003 Где: КМВ Репутация: 4 Всего: 83 |
Ace Wentura
А зачем извращаться??? Мой вариант вернёт тебе и доменное имя и IP-адрес!!! |
|||
|
||||
korob2001 |
|
||||||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2871 Регистрация: 29.12.2002 Репутация: 13 Всего: 61 |
А я такой шаблон написал:
А вот так можно его заюзать:
Enjoy ;)))) Это сообщение отредактировал(а) korob2001 - 9.6.2005, 15:16 -------------------- "Время проходит", - привыкли говорить вы по неверному пониманию. "Время стоит - проходите вы". |
||||||
|
|||||||
Sadok |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 74 Регистрация: 2.11.2004 Репутация: 1 Всего: 2 |
Ace Wentura
use URI::Split qw(uri_split); $uri = "http://forum.vingrad.ru/index.php?showtopic=44335&unread=1&st=0&#entry342547"; ($scheme, $auth, $path, $query, $frag) = uri_split($uri); Это сообщение отредактировал(а) Sadok - 4.3.2005, 15:30 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Perl: CGI программирование" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: разработка для Web | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |