What's Covered
51Degrees device detector returns all detection results as a string. This tutorial demonstrates how to return results for the IsMobile property value as a boolean.
Code and Explanation
Getting started example of using 51Degrees device detection. The example shows how to:
-
Set the various settings for 51Degrees detector
my $filename = "../../data/51Degrees-LiteV3.4.trie"; my $propertyList = "IsMobile"
my $provider = new FiftyOneDegrees::TrieV3::Provider( $dataFile, $propertiese);
my $match = $provider->getMatch($userAgent)
sub isMobile { my $match = @_[0]; my $isMobileString = $match->getValue("IsMobile"); if ($isMobileString eq "True") { return 1; } else { return; } }This example assumes you are running from the original subdirectory i.e. Device-Detection/perl/examples/ and the 51Degrees Perl module is installed.
use FiftyOneDegrees::TrieV3; use feature qw/say/; my $filename = "../../data/51Degrees-LiteV3.4.trie"; my $propertyList = "IsMobile"; # 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 the settings declared above. # This uses Lite data file. For more info # see: # <a href="https://51degrees.com/compare-data-options">compare data options # </a> my $provider = new FiftyOneDegrees::TrieV3::Provider( $filename, $propertyList); # isMobile function. Takes a match object as an argument, carries out a # match and returns a boolean value for the IsMobile property of the # matched device. sub isMobile { my $match = @_[0]; my $isMobileString = $match->getValue("IsMobile"); if ($isMobileString eq "True") { return 1; } else { return 0; } } say "Starting Getting Started Strongly Typed Example."; # Determines whether the mobile User-Agent is a mobile device. say "\nUser-Agent: $mobileUserAgent"; my $match = $provider->getMatch($mobileUserAgent); my $isMobileBool = isMobile($match); if ($isMobileBool) { say " Mobile"; } else { say " Non-Mobile"; } # Determines whether the desktop User-Agent is a mobile device. say "\nUser-Agent: $desktopUserAgent"; my $match = $provider->getMatch($desktopUserAgent); my $isMobileBool = isMobile($match); if ($isMobileBool) { say " Mobile"; } else { say " Non-Mobile"; } # Determines whether the MediaHub User-Agent is a mobile device. say "\nUser-Agent: $mediaHubUserAgent"; my $match = $provider->getMatch($mediaHubUserAgent); my $isMobileBool = isMobile($match); if ($isMobileBool) { say " Mobile"; } else { say " Non-Mobile"; }
Summary
In this tutorial you have seen how to use the detector to retrieve the IsMobile property for a pre-defined User-Agent string. It sets a boolean value to true or false from the original string value of "True" or "False", making if statements simpler to test.