App-geoip
view release on metacpan or search on metacpan
$sti->execute (@{$_}{qw( id name iso continent eu )}) for values %ctry;
$sti->finish;
$dbh->commit;
}
say "Reading Country IPv4 info ...";
foreach my $cnm (grep m{\bGeoLite2-Country-Blocks-IPv4.csv$}i => @cmn) {
my $m = $zip->memberNamed ($cnm) or next;
my $c = $m->contents or next;
# network,geoname_id,registered_country_geoname_id,represented_country_geoname_id,is_anonymous_proxy,is_satellite_provider
# 1.0.0.0/24,2077456,2077456,,0,0
$dbh->do ("$truncate ipv4");
$dbh->commit;
my $n;
my $sti = $dbh->prepare ("insert into ipv4 values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
csv (in => \$c, headers => "auto", out => undef, on_in => sub {
++$n % 1000 or print STDERR " $n\r";
my $cidr = $_{network};
my @rng = Net::CIDR::cidr2range ($cidr);
my ($f, $t) = split m/\s*-\s*/ => $rng[0];
my ($F, $T) = map { unpack "L>", inet_aton $_ } $f, $t;
if ($conf{update} && -s $zcfn and ($stmp{$zcfn} // -1) < (stat $zcfn)[9]) {
my $zip = Archive::Zip->new;
$zip->read ($zcfn) and die "Cannot unzip $zcfn\n";
my @cmn = $zip->memberNames or die "$zcfn hasd no members\n";
say "Reading Provider IPv4 info ...";
foreach my $cnm (grep m{\bGeoLite2-ASN-Blocks-IPv4.csv$}i => @cmn) {
my $m = $zip->memberNamed ($cnm) or next;
my $c = $m->contents or next;
# network,autonomous_system_number,autonomous_system_organization
# 1.0.0.0/24,13335,"Cloudflare, Inc."
$dbh->do ("$truncate provider");
$dbh->commit;
my $n;
my $sti = $dbh->prepare ("insert into provider values (?, ?, ?, ?, ?, ?, ?)");
csv (in => \$c, headers => "auto", out => undef, on_in => sub {
++$n % 1000 or print STDERR " $n\r";
my $cidr = $_{network};
my @rng = Net::CIDR::cidr2range ($cidr);
my ($f, $t) = split m/\s*-\s*/ => $rng[0];
my ($F, $T) = map { unpack "L>", inet_aton $_ } $f, $t;
$sti->finish;
$dbh->commit;
}
say "Reading City IPv4 info ...";
foreach my $cnm (grep m{\bGeoLite2-City-Blocks-IPv4.csv$}i => @cmn) {
my $m = $zip->memberNamed ($cnm) or next;
my $c = $m->contents or next;
# network,geoname_id,registered_country_geoname_id,
# represented_country_geoname_id,is_anonymous_proxy,
# is_satellite_provider,postal_code,latitude,longitude,accuracy_radius
# 1.0.0.0/24,2062391,2077456,,0,0,5412,-34.1551,138.7482,1000
$dbh->do ("$truncate ipc4");
$dbh->commit;
my $n;
my $sti = $dbh->prepare ("insert into ipc4 values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
csv (in => \$c, headers => "auto", out => undef, on_in => sub {
++$n % 1000 or print STDERR " $n\r";
my $cidr = $_{network};
my @rng = Net::CIDR::cidr2range ($cidr);
my ($f, $t) = split m/\s*-\s*/ => $rng[0];
my ($F, $T) = map { unpack "L>", inet_aton $_ } $f, $t;
lib/App/geoip.pm view on Meta::CPAN
$sti->execute (@{$_}{qw( id name iso continent eu )}) for values %ctry;
$sti->finish;
$dbh->commit;
}
say "Reading Country IPv4 info ...";
foreach my $cnm (grep m{\bGeoLite2-Country-Blocks-IPv4.csv$}i => @cmn) {
my $m = $zip->memberNamed ($cnm) or next;
my $c = $m->contents or next;
# network,geoname_id,registered_country_geoname_id,represented_country_geoname_id,is_anonymous_proxy,is_satellite_provider
# 1.0.0.0/24,2077456,2077456,,0,0
$dbh->do ("$truncate ipv4");
$dbh->commit;
my $n;
my $sti = $dbh->prepare ("insert into ipv4 values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
csv (in => \$c, headers => "auto", out => undef, on_in => sub {
++$n % 1000 or print STDERR " $n\r";
my $cidr = $_{network};
my @rng = Net::CIDR::cidr2range ($cidr);
my ($f, $t) = split m/\s*-\s*/ => $rng[0];
my ($F, $T) = map { unpack "L>", inet_aton $_ } $f, $t;
lib/App/geoip.pm view on Meta::CPAN
if ($conf{update} && -s $zcfn and ($stmp{$zcfn} // -1) < (stat $zcfn)[9]) {
my $zip = Archive::Zip->new;
$zip->read ($zcfn) and die "Cannot unzip $zcfn\n";
my @cmn = $zip->memberNames or die "$zcfn hasd no members\n";
say "Reading Provider IPv4 info ...";
foreach my $cnm (grep m{\bGeoLite2-ASN-Blocks-IPv4.csv$}i => @cmn) {
my $m = $zip->memberNamed ($cnm) or next;
my $c = $m->contents or next;
# network,autonomous_system_number,autonomous_system_organization
# 1.0.0.0/24,13335,"Cloudflare, Inc."
$dbh->do ("$truncate provider");
$dbh->commit;
my $n;
my $sti = $dbh->prepare ("insert into provider values (?, ?, ?, ?, ?, ?, ?)");
csv (in => \$c, headers => "auto", out => undef, on_in => sub {
++$n % 1000 or print STDERR " $n\r";
my $cidr = $_{network};
my @rng = Net::CIDR::cidr2range ($cidr);
my ($f, $t) = split m/\s*-\s*/ => $rng[0];
my ($F, $T) = map { unpack "L>", inet_aton $_ } $f, $t;
lib/App/geoip.pm view on Meta::CPAN
$sti->finish;
$dbh->commit;
}
say "Reading City IPv4 info ...";
foreach my $cnm (grep m{\bGeoLite2-City-Blocks-IPv4.csv$}i => @cmn) {
my $m = $zip->memberNamed ($cnm) or next;
my $c = $m->contents or next;
# network,geoname_id,registered_country_geoname_id,
# represented_country_geoname_id,is_anonymous_proxy,
# is_satellite_provider,postal_code,latitude,longitude,accuracy_radius
# 1.0.0.0/24,2062391,2077456,,0,0,5412,-34.1551,138.7482,1000
$dbh->do ("$truncate ipc4");
$dbh->commit;
my $n;
my $sti = $dbh->prepare ("insert into ipc4 values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
csv (in => \$c, headers => "auto", out => undef, on_in => sub {
++$n % 1000 or print STDERR " $n\r";
my $cidr = $_{network};
my @rng = Net::CIDR::cidr2range ($cidr);
my ($f, $t) = split m/\s*-\s*/ => $rng[0];
my ($F, $T) = map { unpack "L>", inet_aton $_ } $f, $t;
( run in 0.468 second using v1.01-cache-2.11-cpan-7add2cbd662 )