HTTP::UA::Parser - Perl User Agent Parser
Perl port of the ua-parser project - https://github.com/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"
print $r->device->brand; # -> "Apple"
print $r->device->model; # -> "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
- brand()
-
returns brand name of device
- model()
-
returns model name of device
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
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, <mamod.mehyar@gmail.com>
Copyright (C) 2020 by Mamod A. Mehyar & other contributors
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.