如何在Perl中解析用户代理字符串?

sfa*_*tor 5 perl user-agent perl-module

我需要从文本文件中解析HTTP标头中的用户代理,以确定浏览器,版本,操作系统以及可能的设备.这些行的例子很少:

User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Update a; AOL 6.0; Windows 98)

User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Crazy Browser 2.0.0 Beta 1; .NET CLR 1.0.3705; .NET CLR 1.1.4322)

User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_2; de-de) AppleWebKit/531.21.8 (KHTML, like Gecko) Version/4.0.4 Safari/531.21.10

User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 95) Opera 6.01  [en]
Run Code Online (Sandbox Code Playgroud)

由于这些字符串的多样性,我认为利用某人已经提供的经过验证且可靠的解析器会更好.我确实在PHP或java中找到了一些,但似乎没有为Perl找到一个.

有人可以告诉我任何这样的模块吗?

raf*_*afl 15

您可能正在寻找HTTP::BrowserDetect模块.