Come posso analizzare le stringhe degli user-agent in Perl?

Question

Ho bisogno di analizzare gli user-agent nelle intestazioni HTTP da un file di testo in modo da determinare il browser, la versione, il sistema operativo e possibilmente il dispositivo. così pochi esempi di quelle linee sono:

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] 

A causa della grande varietà di queste stringhe ho pensato che sarebbe stata una migliore idea di utilizzare un parser collaudato e affidabile che qualcuno ha messo a disposizione. Ne ho trovati alcuni in PHP o Java ma non sembra trovarne uno per Perl.

Qualcuno può parlarmi di un modulo del genere?

Answer 1

Si potrebbe cercare il modulo HTTP::BrowserDetect.

Answer 2

Ogni volta che hai bisogno di qualcosa in Perl, prova CPAN Search. La ricerca di user agent mostra nella sola prima pagina di risultati diversi moduli che è possibile utilizzare.

Answer 3

ho fatto una revisione di tutti i moduli Perl CPAN per parsing della stringa User-Agent:

http://blogs.perl.org/users/neilb/2011/10/cpan-modules-for-parsing-user-agent-strings.html

Ci sono una serie di moduli che sono attivamente mantenuta. La migliore copertura dei normali browser Web è attualmente (gennaio 2012) fornita da HTML::ParseBrowser, che sto mantenendo.

Neil