perl - 使用 perl 检测并显示计算机浏览器

Question

谁能告诉我如何使用 perl 检测和显示计算机浏览器？

提前致谢。请帮忙。

我希望输出显示为

Firefox (with version number)

Answer 1

浏览器通常在 HTTP 请求的标头中提供一个字符串Agent，一些 Web 服务器通过HTTP_USER_AGENTenvironment var 将其提供给 CGI 脚本。

HTTP::BrowserDetect提供了从该字符串中提取信息的工具。

use CGI                 qw( );
use HTTP::BrowserDetect qw( );

my $cgi = CGI->new();
print $cgi->header('text/plain');

my $bd = HTTP::BrowserDetect->new($cgi->user_agent());
print $bd->browser_string(), ' ', $bf->public_version(), "\n";