使用Perl检测和显示计算机浏览器

Question

任何人都可以请告诉我如何检测和显示使用Perl的计算机浏览器？

在此先感谢。请帮忙。

欲被显示在输出作为

Firefox (with version number) 

Answer 1

浏览器通常提供在Agent头中的HTTP请求，其中一些网络服务器提供经由HTTP_USER_AGENT环境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"; 

Answer 2

像这样的事情可能工作，或者可能是你需要一些专门的代码，每个浏览器（带丁目测试，火狐）。这个人给你在Linux上的默认浏览器：

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