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

Question

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

提前致谢。请帮忙。

我希望输出显示为

Firefox (with version number)

Answer 1

浏览器通常在HTTP请求的Agent标头中提供一个字符串，一些Web服务器通过HTTP_USER_AGENT环境变量提供给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";

Answer 2

这样的东西可能有用，或者你可能需要为每个浏览器提供一些专门的代码（用chome，firefox测试过）。这个为您提供Linux上的默认浏览器：

$browser = `xdg-settings get default-web-browser | cut -d. -f1`;
chomp $browser;
$ver     = `$browser --version`;
print $ver;