https://github.com/ua-parser/uap-perl
Perl implementation of ua-parser
https://github.com/ua-parser/uap-perl
Last synced: 8 months ago
JSON representation
Perl implementation of ua-parser
- Host: GitHub
- URL: https://github.com/ua-parser/uap-perl
- Owner: ua-parser
- Created: 2014-11-09T04:08:47.000Z (over 11 years ago)
- Default Branch: master
- Last Pushed: 2020-02-05T23:12:16.000Z (over 6 years ago)
- Last Synced: 2025-09-25T12:32:35.332Z (9 months ago)
- Language: Perl
- Size: 95.7 KB
- Stars: 6
- Watchers: 6
- Forks: 6
- Open Issues: 0
-
Metadata Files:
- Readme: README.pod
- Changelog: Changes
Awesome Lists containing this project
README
=head1 NAME
HTTP::UA::Parser - Perl User Agent Parser
=for html
=head1 DESCRIPTION
Perl port of the ua-parser project - L
=head1 SYNOPSIS
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"
=head1 Methods
=head2 new()
Accepts a user agent string to parse, leave empty to parse caller user agent.
=head2 parse()
Accepts a new user agent to parse
=head2 ua()
Parses browser part of the user agent
=head2 os()
Parsers operating system part of the user agent
=head2 device()
Parses device part of the user agent
=head1 Stringify Methods
Methods to print results as strings
=over 4
=item toString()
returns os / ua name
=item toVersionString()
returns full version number of os/browser
=item family()
returns family name of os/browser/device
=item major()
returns version's major part of os/browser
=item minor()
returns version's minor part of os/browser
=item patch()
returns versions patch part of os/browser
=item patchMinor()
returns version patch minor part of os/browser
=item brand()
returns brand name of device
=item model()
returns model name of device
=back
=head1 INSTALLATION
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
=head1 COMMAND LINE
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
=head1 AUTHOR
Mamod A. Mehyar, Emamod.mehyar@gmail.comE
=head1 COPYRIGHT AND LICENSE
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.