VPF::ip2country - Форум программистов

dixoNICH

Дата 14.9.2011, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

теперь пытаюсь исключать AU, но, как-то не очень получается. нуждаюсь в Вашей помощи smile

Код


use IO::Socket::INET; 
use strict;
use warnings;
use Getopt::Long;
print "command : -help\n";
my ($port, $timeout, $socket, $f, $inf, $ip, $bool, $flag) = (43, 2);
GetOptions('help' => \$flag);
sub help {
    return "Help :: First argument - IP Address\n";
}
print &help if $flag;
sleep 2;
$ip = $ARGV[0];
die "Wrong IP Address !!!"unless$ip =~/\d+\.\d+\.\d+\.\d+/;
my @servers = ('ARIN', 'APNIC', 'LACNIC', 'RIPE');
for my $host(@servers) {
    eval {
    local $SIG{ALRM} = sub{die "alarm\n";};
    alarm $timeout;
    $socket =   IO::Socket::INET->new ( 
                    PeerAddr => "whois.$host.net",
                    PeerPort => $port,
    ) or die "Can't connect to whois.$host.net\n"; 
        $socket->print( "$ip\r\n" );
         while ($f = <$socket>){
            if($f =~/^inetnum:\s*(0\.){3}0\s-\s(255\.){3}255/i ||
                $f =~/^descr:\s*various registries/i ||
                $f =~/^descr:\s*.*?not allocated .. apnic/i ||
                $f =~/^descr:\s*early registration addresses/ix) {print "$host : There is no ip in Database"} 
            elsif($f =~/^country:\s+(\w\w)/s) {print$1}
        }
        $socket->close;
    };
    alarm 0;
}
if($@) {die unless $@ eq "alarm\n";}

dixoNICH

Дата 18.9.2011, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

Ап ))))))))))))

ginnie

Дата 20.9.2011, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

Уважаемый dixoNICH, можно попробовать воспользоваться геобазой проекта http://www.wipmania.com. Можно использовать их API, а можно сделать локальный поиск (берите данные в SQL-формате, загружайте в базу, далее преобразуете свой IP в int и ищете по базе страну).

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

dixoNICH

Дата 27.9.2011, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

Спасибо. Решил свою проблему с помощью http://www.iana.org/assignments/ipv4-addre...dress-space.xml

dixoNICH

Дата 28.9.2011, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

Появилась небольшая проблема smile

В функции прог в куске
while (<$socket>){
    $f .= $_;
    /^country:\s*(\w+)$/i;
    $country = $countrytable{$1};
}
Когда передаю в качестве аргумента 200.200.200.200 в country ничего не ловится, если вводить 100.100.100.100 то всё ок.
Выводил просто всё, что мне отсылает сервер, там есть строчка country:        BR, но почему не парсится?
Запуск программы : -all выдаст всё, что пришло с сервера, -c страну, -prog страну, статус, дату и обозначение.
Прошу помощи. Всё в архиве   smile

Код


###################################################################################
# %iana (ключ — первый октет ip-адреса, значение — адрес регистратора)                 #
# %countrytable (ключ — двухбуквенное наименование страны, значение — расшифровка)#
# %fail (ключ — первый октет ip-адреса, значение — обозначение)                         #
###################################################################################
use IO::Socket::INET; 
use Getopt::Long;
use strict;
my ($port, $timeout, $socket, $ip, $flag, $flag1, $flag2, $flag3, $host, %iana, %countrytable, %fail, $country, @arr, $f) = (43, 4);
GetOptions('help' => \$flag, 'prog' =>\$flag1, 'all' => \$flag2, 'country' => \$flag3); # возможен запуск программы с ключом -help 
print &help if $flag;
&prog if $flag1;
if ($flag3) {
    open SAVEOUT, ">&STDOUT";
    close STDOUT;
    @arr = &prog;
    open STDOUT, ">&SAVEOUT";
    print STDOUT "COUNTRY ::: $arr[0]";
}
if ($flag2) {
    open SAVEOUT, ">&STDOUT";
    close STDOUT;
    @arr = &prog;
    open STDOUT, ">&SAVEOUT";
    print STDOUT "::::::::::::::::::  ALL ::::::::::::::::::  \n\n$arr[1]";
}
sub prog() {
    open C, "countrytable.txt"; 
    open I, "iana.txt";
    while(<C>) { # Заполнение хеша %countrytable
        chomp;
        /(\w+)\s{3}(.*)/s;
        $countrytable{$1} = $2;
    } 
    close C;    
    while(<I>) { # Заполнение хешей %iana и %fail
        chomp;
        /(\d{1,3})\/8\s{2}(.*)\s+(\d{4}-\d{2})\s{2}((?:whois\..*\.net)|b)\s*(\w+)/s;
        $iana{$1} = $4; 
        $fail{$1} = "DESIGNATION ::: $2\nDATE ::: $3\nSTATUS ::: $5";
    }
    $ip = $ARGV[0];
    die "Wrong IP Address !!!" unless $ip =~/^(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|\d)\.
                                                            (25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|\d)\.
                                                            (25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|\d)\.
                                                            (25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|\d)$/x; # проверяем корректность ввода ip-адреса
    $host = $iana{$1}; 
    if($host ne 'b'){ 
        eval {
            local $SIG{ALRM} = sub{die "alarm\n";};
            alarm $timeout;
            $socket =   IO::Socket::INET->new ( 
                            PeerAddr => "$host",
                            PeerPort => $port,
            ) or die "Can't connect to $host\n"; 
            $socket->print("$ip\r\n");
            while (<$socket>){
                $f .= $_;
                /^country:\s*(\w+)$/i;
                $country = $countrytable{$1};
            }
            $arr[0] = $country;
            $arr[1] = $f;
            print "COUNTRY :::  $country\n" if $country ne '';
            print "$fail{$1}";
            $socket->close;
        };
            alarm 0;
        if($@) {die unless $@ eq "alarm\n";}
    }
    else {
        print "In this there is no corresponding IP whois server!\n$fail{$1}";
    }
return @arr;
}
sub help {
    return "Help :: First argument - IP Address\nip2c.pl -prog ip-addr \nip2c.pl -all ip-addr\nip2c.pl -country ip-addr";
}

Присоединённый файл ( Кол-во скачиваний: 1 )

ip2crar.rar 5,57 Kb

ginnie

Дата 28.9.2011, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

dixoNICH, а закрытием STDOUT Вы отключаете отладочный вывод, я правильно понял? Очень оригинально!

Добавлено @ 15:58
По поводу проблемы с регулярным выражением почитайте в perldoc perlre про модификатор m

Это сообщение отредактировал(а) ginnie - 28.9.2011, 15:59

--------------------

dixoNICH

Дата 28.9.2011, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

нет, почему? ) у меня в функции выводится 4 поля, функция возвращает массив. в этом массиве 0-ой и 1-ый элемент — два поля из этих четырёх.
если я делаю так : @arr = prog(); то вызовется функция и выдаст на экран мне эти четыре поля, что мне не надо, по-этому я закрываю стдин.
а чем мне поможет m? если у меня во всех тестируемых случаях работает регвыр, кроме вот 200.200.200.200(или 201 последний октет или 202 etc)

ginnie

Дата 28.9.2011, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

Да, по поводу m я был не прав!

--------------------

arto

Дата 28.9.2011, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

# whois 200.200.200.200 | perl -lne 'm#^country:\s*(\w+)#im && print $1'
BR
#

ginnie

Дата 28.9.2011, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

В ответах whois-серверов строки оканчиваются по-разному, некоторые на \n, а некоторые на \r\n.

--------------------

dixoNICH

Дата 28.9.2011, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

заработало, когда убрал в конце $
спасибо, arto.

Добавлено через 10 минут и 49 секунд
ещё один трабл : отправляю на сервер ещё одно сообщение
когда отправляю 2-ой раз и пытаюсь получить всё, то ничего не приходит. и просто $_ во втором вайле не выводится(

Код


$socket->print("$ip\r\n");
            while (<$socket>){
                $f .= $_;
                /^country:\s*(\w+)/im;
                $country = $countrytable{$1};
                /\((NET.*)\)/msi; 
                $wtf = $1;
            }
            if($country eq '') {
                $socket->print("$wtf\r\n"); 
                while(<$socket>) {
                    /^country:\s*(\w+)/im;
                    $country = $countrytable{$1};
                }
            }

dixoNICH

Дата 28.9.2011, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

всё понял, забыл закрыть и открыть сокет)

ginnie

Дата 28.9.2011, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

dixoNICH, а не лучше ли писать так:

Код


$country = $countrytable{$1} if (/^country:\s*(\w+)/im);
$wtf = $1 if (/\((NET.*)\)/msi);

Кстати m в регулярках не нужно, т.к. в $_ всегда одна строка (чтение построчное).

--------------------

dixoNICH

Дата 28.9.2011, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

Может быть лучше smile

Ну, вроде бы мой вариант заработал, так что не буду исправлять smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »