Check out the latest documentation.

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:

  1. Set the various settings for 51Degrees detector 

    												
my $filename = "../../data/51Degrees-LiteV3.2.dat";
my $propertyList = "IsMobile"
my $cacheSize = 10000;
my $poolSize = 20;

  • Instantiate the 51Degrees device detection provider with these properties 

    									
my $provider = new FiftyOneDegrees::PatternV3::Provider(
	$dataFile,
	$properties,
	$cacheSize,
	$poolSize);
  • Produce a match for a single HTTP User-Agent header 

    									
my $match = $provider->getMatch($userAgent)
  • Extract the value of the IsMobile property as boolean 

    									
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.

    Full Source File 
    												
use FiftyOneDegrees::PatternV3;
use feature qw/say/;

my $filename = "../../data/51Degrees-LiteV3.2.dat";
my $propertyList = "IsMobile";
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 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::PatternV3::Provider(
    $filename,
    $propertyList,
    $cacheSize,
    $poolSize);

# 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";
}
    Full Source File

    • 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.

    More Tutorials