Forum Webscript.Ru

Программирование => Perl => Тема начата: C++ от 06 Августа 2002, 16:01:43

Название: Домен
Отправлено: C++ от 06 Августа 2002, 16:01:43

Народ, подскажите как выделить только домен из HTTP_REFERER?
Сенкс

Название: Домен
Отправлено: OBOLTUS от 06 Августа 2002, 16:23:21

Регулярные выражения тебя спасут php.net/manual

ereg("http:\\\\\\\\([^\\\\]+)",$HTTP_USER_AGENT,$array);
echo $array[1];

Название: Домен
Отправлено: C++ от 08 Августа 2002, 17:17:52

А как тоже самое сделать на перле?
И еще не понятно, причем тут $HTTP_USER_AGENT?

Название: Домен
Отправлено: Chs от 08 Августа 2002, 22:13:19

Цитировать

А как тоже самое сделать на перле?

Код: [Выделить]


$ENV{\'HTTP_REFERER\'} =~ m|^[url]http://[/url]([^/]+)|;
print \'Domain:\'.$1;


Название: Домен
Отправлено: OBOLTUS от 09 Августа 2002, 06:43:26

Цитировать

И еще не понятно, причем тут $HTTP_USER_AGENT?

Сорьки ошибся:) Блин еще и слэши не в ту сторону поставил, ну я лапух:)