#!/usr/bin/env perl
=copyright
This Source Code Form is copyright of 51Degrees Mobile Experts Limited.
Copyright 2017 51Degrees Mobile Experts Limited, 5 Charlotte Close,
Caversham, Reading, Berkshire, United Kingdom RG4 7BY
This Source Code Form is the subject of the following patents and patent
applications, owned by 51Degrees Mobile Experts Limited of 5 Charlotte
Close, Caversham, Reading, Berkshire, United Kingdom RG4 7BY:
European Patent No. 2871816;
European Patent Application No. 17184134.9;
United States Patent Nos. 9,332,086 and 9,350,823; and
United States Patent Application No. 15/686,066.
This Source Code Form is subject to the terms of the Mozilla Public
License, v. 2.0.
If a copy of the MPL was not distributed with this file, You can obtain
one at http://mozilla.org/MPL/2.0/.
This Source Code Form is "Incompatible With Secondary Licenses", as
defined by the Mozilla Public License, v. 2.0.
=cut
=tutorial
my $filename = "51Degrees-LiteV3.2.dat";
my $propertyList = "IsMobile"
my $cacheSize = 10000;
my $poolSize = 20;
my $provider = new FiftyOneDegrees::PatternV3::Provider( $dataFile, $properties, $cacheSize, $poolSize);
my $match = $provider->getMatchForDeviceId($userAgent)
$match->getValue('IsMobile')This example assumes you are running from the original subdirectory i.e. Device-Detection/perl/examples/ and the 51Degrees Perl module is installed. =cut # // Snippet Start use FiftyOneDegrees::PatternV3; use feature qw/say/; my $filename = "../../data/51Degrees-LiteV3.2.dat"; my $propertyList = ""; my $cacheSize = 10000; my $poolSize = 20; # User-Agent string of an iPhone mobile device. my $mobileUserAgent = "Mozilla/5.0 (iPhone; CPU iPhone OS 7_1 like Mac OS X) ". "AppleWebKit/537.51.2 (KHTML, like Gecko) 'Version/7.0 ". "Mobile/11D167 Safari/9537.53"; # User-Agent string of Firefox Web browser version 41 on desktop. my $desktopUserAgent = "Mozilla/5.0 (Windows NT 6.3; WOW64; rv:41.0) ". "Gecko/20100101 Firefox/41.0"; # User-Agent string of a MediaHub device. my $mediaHubUserAgent = "Mozilla/5.0 (Linux; Android 4.4.2; X7 Quad Core ". "Build/KOT49H) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 ". "Chrome/30.0.0.0 Safari/537.36"; #Initialises the device detection provider with settings from the settings #file. By default this will use the included Lite data file For more info #see: #compare data options # my $provider = new FiftyOneDegrees::PatternV3::Provider( $filename, $propertyList, $cacheSize, $poolSize); say "Starting Match With Device Id Example."; # Fetches device id for mobile User-Agent. my $match = $provider->getMatch($mobileUserAgent); my $mobileDeviceId = $match->getDeviceId(); # Fetches device id for desktop User-Agent. my $match = $provider->getMatch($desktopUserAgent); my $desktopDeviceId = $match->getDeviceId(); # Fetches device id for MediaHub User-Agent. my $match = $provider->getMatch($mediaHubUserAgent); my $mediaHubDeviceId = $match->getDeviceId(); # Carries out a match with a mobile device id. say "\nMobile Device Id: $mobileDeviceId"; my $match = $provider->getMatchForDeviceId($mobileDeviceId); my $isMobile = $match->getValue("IsMobile"); say " IsMobile: $isMobile"; # Carries out a match with a desktop device id. say "\nDesktop Device Id: $desktopDeviceId"; my $match = $provider->getMatchForDeviceId($desktopDeviceId); my $isMobile = $match->getValue("IsMobile"); say " IsMobile: $isMobile"; # Carries out a match with a MediaHub device id. say "\nMobile Device Id: $mediaHubDeviceId"; my $match = $provider->getMatchForDeviceId($mediaHubDeviceId); my $isMobile = $match->getValue("IsMobile"); say " IsMobile: $isMobile"; # // Snippet End