frzte / opensource.guide

📚 Community guides for open source creators

#!/usr/bin/perl

use strict; use warnings;

use lib 'Geo-IPinfo/lib';

use Geo::IPinfo;

my $token = '1234567';

if you have a valid token, use it

my $ipinfo = Geo::IPinfo->new($token);

or, if you don't have a token, use this:

my $ipinfo = Geo::IPinfo->new();

return a hash reference containing all IP related information

my $data = $ipinfo->info('8.8.8.8');

if (defined $data) # valid data returned { print "Information about IP 8.8.8.8:\n"; for my $key (sort keys %{$data} ) { printf "%10s : %s\n", $key, $data->{$key}; } print "\n" } else # invalid data obtained, show error message { print $ipinfo->error_msg . "\n"; }

retrieve only city information of the IP address

my $city = $ipinfo->field('8.8.8.8', 'city');

print "The city of 8.8.8.8 is $city\n";