CPAN::Groonga

#!/usr/bin/perl
use JSON;
use Encode;
use Data::Validate::IP;
use FindBin;
$|=1;

our $DATA_DIR='data';

our $PRIVATE = { 
    country => '局域网',
    region => '局域网',
    isp => '局域网'

        my $c = `/usr/bin/curl -s "$url"`;
        my $r;
        eval {
            $r = decode_json($c);
        };
        unless($r){
            print "retry $ip\n";
            sleep 3;
       

::Validate::IP qw/is_ipv4 is_ipv6 is_public_ipv4/;
use SimpleR::Reshape;
use Data::Dumper;
use JSON;
use File::Spec;
use Net::CIDR qw/cidr2range/;
use Socket qw/inet_aton inet_ntoa/;
use Memoiz