|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Konstantin Tokar 2:5020/400 31 Jan 2002 18:57:35 To : Andrey Titov Subject : Re: Распознать NN и IE -------------------------------------------------------------------------------- > > А как на Перле грамотно распознать браузер и его версию? > Может у кого есть кусок кода, поделитесь пожалуйста. > Как всегда, в CPAN все есть: HTTP::BrowserDetect - Determine the Web browser, version, and platform from an HTTP user agent string SYNOPSIS use HTTP::BrowserDetect; my $browser = new HTTP::BrowserDetect($user_agent_string); # Detect operating system if ($browser->windows) { if ($browser->winnt) ... if ($brorwser->win95) ... } print $browser->mac; # Detect browser vendor and version print $browser->netscape; print $browser->ie; if (browser->major(4)) { if ($browser->minor() > .5) { ... } } if ($browser->version() > 4) { ...; } # Process a different user agent string $browser->user_agent($another_user_agent_string); --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1277090f9c9ef.html, оценка из 5, голосов 10
|