root/misc/ip2country

Revision 2948 (checked in by miyagawa, 10 years ago)

use env perl

  • Property svn:executable set to *
Line 
1 #!/usr/bin/env perl
2 use strict;
3 use IP::Country::Fast;
4
5 my $ip = $ARGV[0] or die "Usage: ip2country [IP|hostname]\n";
6
7 my $reg = IP::Country::Fast->new();
8 print $reg->inet_atocc($ARGV[0]) . "\n";
9
Note: See TracBrowser for help on using the browser.