Re: (no subject)
-
To: Лынник Антон lynniktosha@localhost
-
From: Shane Kerr shane@localhost
-
Date: Tue, 29 Jul 2003 15:19:27 +0200
-
Cc: db-help@localhost
Лынник Антон wrote:
Hello,
I need a next information : range of ip address of Ukrainian ISP
Can help me ????
I'm not sure exactly what information you need.
You can get a list of LIR's based in the Ukraine from this page:
http://www.ripe.net/ripencc/mem-services/general/indices/UA.html
There is currently no way to query the database to find all inetnum
objects that have "UA" as a country, however you can download the text
file containing all inetnum objects here:
ftp://ftp.ripe.net/ripe/dbase/split/ripe.db.inetnum.gz
It should be possible to use a script that searches through this,
for example:
$ gzip -dc ripe.db.inetnum.gz | perl inetnum-cc-search.pl UA > in.ua
The attached script should work (it's not perfect, but probably good
enough). Takes about 90 seconds to run on my box, a 1 GHz PIII, and
finds about 3500 inetnum ranges.
Note that we only check the "country:" attribute to make sure it is a
valid ISO-3166 code. We have no way to know if it is accurrate.
--
Shane Kerr
RIPE NCC
#! /usr/bin/perl -w
use strict;
use English;
$INPUT_RECORD_SEPARATOR="";
unless (@ARGV) {
die "Call with the two-letter country codes to search for.\n";
}
my $countries = join('|', @ARGV);
while (<STDIN>) {
my $country_found = 0;
foreach my $attr (split(/\n(?![+ \t])/, $_)) {
if ($attr =~ /^country:.*$countries/im) {
$country_found = 1;
last;
}
}
if ($country_found && /^inetnum:\s*(.*)$/im) {
print "$1\n";
}
}