Как я могу анализировать строки пользовательского агента в Perl?

Мне нужно проанализировать пользовательские агенты в 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]

Из-за огромного разнообразия этих строк я подумал, что было бы лучше использовать проверенный и надежный синтаксический анализатор, который кто-то сделал доступным. Я нашел несколько в PHP или java, но, похоже, не нашел ни одного для Perl.

Может ли кто-нибудь рассказать мне о каком-либо таком модуле?

5
задан brian d foy 1 October 2010 в 17:29
поделиться