HTTP::UA::Parser

Perl port of the ua-parser project - https://github.com/tobie/ua-parser

use HTTP::UA::Parser;
my $r = HTTP::UA::Parser->new();

print $r->ua->toString();         # -> "Safari 5.0.1"
print $r->ua->toVersionString();  # -> "5.0.1"
print $r->ua->family;             # -> "Safari"
print $r->ua->major;              # -> "5"
print $r->ua->minor;              # -> "0"
print $r->ua->patch;              # -> "1"

print $r->os->toString();         # -> "iOS 5.1"
print $r->os->toVersionString();  # -> "5.1"
print $r->os->family              # -> "iOS"
print $r->os->major;              # -> "5"
print $r->os->minor;              # -> "1"
print $r->os->patch;              # -> undef

print $r->device->family;         # -> "iPhone"

Accepts a user agent string to parse, leave empty to parse caller user agent.

Accepts a new user agent to parse

Parses browser part of the user agent

Parsers operating system part of the user agent

Parses device part of the user agent

Methods to print results as strings

toString()

returns os / ua name

toVersionString()

returns full version number of os/browser

family()

returns family name of os/browser/device

major()

returns version's major part of os/browser

minor()

returns version's minor part of os/browser

patch()

returns versions patch part of os/browser

patchMinor()

returns version patch minor part of os/browser

From CPAN shell simply type

% perl -MCPAN -e 'install HTTP::UA::Parser'

Or from your local download, unpack and:

% perl Makefile.PL
% make && make test

Then install:

% make install

You can use HTTP::UA::Parser Module without installation directly from the forked ua-parser project, to do so, you need to include lib path of the perl port

use lib '/full/path/to/ua-parser/perl/lib';
use HTTP::UA::Parser;
...

To update regexes.yaml file from command line

% ua_parser -u

To parse some user agent from command line

% ua_parser -p "some user agent"

Help usage

% ua_parser -h

Mamod A. Mehyar, <[email protected]>

Copyright (C) 2012 by Mamod A. Mehyar

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.