|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Vladimir Podgorny 2:5020/400 31 Jan 2002 18:45:13 To : Andrey Titov Subject : Re: Распознать NN и IE -------------------------------------------------------------------------------- Andrey Titov <brandname@mtu-net.ru> wrote: > А как на Перле грамотно распознать браузер и его версию? > Может у кого есть кусок кода, поделитесь пожалуйста. > > $ENV{'HTTP_USER_AGENT'} даёт информацию типа: > > Mozilla/4.76 [en] (Win98; U) > Mozilla/4.73 [en] (X11; I; Linux 2.5.2-pre10 i686; Nav) > Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Q312461) > Mozilla/3.01 (X11; I; Linux 2.2.16 i686) > Opera/5.02 (Windows NT 4.0; U) [en] > Mozilla/4.73 [en] (X11; I; SunOS 5.7 sun4u) > > Как из этого получить браузер и его версию? Ты еще не учитываешь то, что может быть еще и так: Mozilla/4.76 (Linux 2.4.13-ac6 i686; U) Opera 6.0 [en] Судя по http://search.cpan.org/search?dist=http-headers-useragent, универсального решения нет, так что придется писать самому. Anyway весчь полезная (почесывая репу - может озаботиться написанием? :) В любом случае if (/opera/i) {} elsif (/msie/i) {} elsif ... тебе поможет. -- VP992-RIPE --- ifmail v.2.15dev5 * Origin: Adamant ISP news server (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/12034b129b992.html, оценка из 5, голосов 10
|