使用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;