如何在Perl中创建一个简单的浏览器用户代理解析器？

Question

我需要在Perl中创建一个简单的浏览器用户代理解析器.我找到了一个PHP代码,但我的知识相当有限(特别是在正则表达式中).所以,这是我想写的Perl等价的代码.

if ($l = ereg($pattern, $agent, $a = array()))
        {
          array_push($found, array("product" => $a[1], "version" => $a[3], "comment" => $a[6]));
          $agent = substr($agent, $l);
        }

$ agent是作为参数传递的用户代理字符串,并返回一个关联数组$ found,每个关联数组定义代理字符串中的产品/注释(关联数组的键是product,version,comment).$ pattern是我正在搜索的用户代理正则表达式,我已经知道了.

那么,这在Perl中会是什么样子？

编辑:似乎对于我是否需要Perl兼容的正则表达式或Perl中的等效函数存在疑惑.我正在寻找一个Perl函数和语法来做同样的事情.

Answer 1

您可以使用CPAN模块HTTP::BrowserDetect嗅探有关浏览器及其运行的设备的各种信息,包括但不限于版本,引擎和供应商.