Account  |   Register  |   Pricing  |   Asterisk  |   HTTP API   |   Code  |   Batch Client   |   Networks  |   Status  |   About  |   Contact

Number Portability Lookup - Sample Code for Carrier Query: PERL

PERL Sample Code:

The following code sample demonstrates how to query the carrier of a mobile subscriber by phone number via the NumberPortabilityLookup query service using the Perl programming language.

The code requires the perl LWP module to be installed; This can be installed using apt-get install libwww-perl on Debian or Ubuntu, or using the appropriate package manager for your system. It can also be found on CPAN, and in most standard perl distributions.

Other Code Samples & Asterisk Carrier Lookup Examples

To find code samples for other languages, or number portability lookup integration examples for the Asterisk PBX, click here.

Code Sample:

#!/usr/bin/perl

# Sample Number Portability Lookup Query using Perl LWP

# This code may be freely adapted and used in any project or software in
# order to leverage a carrier lookup through numberportabilitylookup.com

# NPL Account Credentials - customise to your own account details
# Free trial account available at www.numberportabilitylookup.com

use LWP::UserAgent;

my $username  = "myusername";
my $password  = "mypassword";

print "Carrier query returned: ".lookupCarrier("447785123456")."\n";
exit;

sub lookupCarrier
{
	my $msisdn=shift;

	my $browser   = LWP::UserAgent->new;
	my $url       = "http://api.numberportabilitylookup.com/npl";
	my $queryData = "user=$username&pass=$password&msisdn=$msisdn";
	my $response  = $browser->post($url, content=>$queryData);
	my $content   = $response->content;

	my @dataLine=split("\n",$content);
	if ($dataLine[0] eq "QUERYOK")
	{
		($msisdn,$carrier)=split(" ",$dataLine[1]);
	}

	return $carrier;
}



 
NumberPortabilityLookup.com™ & © 2021 SES IP Holdings Ltd - All Rights Reserved. Service operated by Wizard Island Software LLC.