perl - perlを使用してコンピュータブラウザを検出して表示します

Question

Perlを使用してコンピュータブラウザを検出して表示する方法を教えてもらえますか？

前もって感謝します。助けてください。

出力を次のように表示したい

Firefox (with version number)

Answer 1

ブラウザAgentは、HTTPリクエストのヘッダーに文字列を提供することがよくあります。これは、一部の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";