VPF::Socket: Узнать IP адрес интерфейса

eXeC001er

Дата 10.6.2011, 16:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Имеем UDP сокет, который висит на всех интерфейсах. Необходимо определить с какого интерфейса пришел DHCP запрос.
попробовал как описано ниже, но $ipaddr1 и $ipaddr2 остаются пустыми. IP адрес клиента понятное дело пуст, т.к. клиент первоначально не имееет IP, почему пусто в адресе сокета и как его всеже получить?

Код


#!/usr/bin/perl -w

use IO::Socket::INET;

my $sock = IO::Socket::INET->new(LocalPort => 67, Broadcast =>1, Proto => 'udp') or die "Cannot create socket: $!\n";

my $newmsg = ""; 
my $max_len = 1024;
while($sock->recv($newmsg, $max_len)) {
    if($newmsg) {
        my($port1, $ipaddr1) = sockaddr_in($sock->peername);
        my($port2, $ipaddr2) = sockaddr_in($sock->sockname);
        print "Client $ipaddr1:$port1 on NIC $ipaddr2:$port2\n";                                                                 
    }   
}

Pfailed

Дата 10.6.2011, 19:35 (ссылка)

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

Загрузка ...

Опытный

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

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

В Linux есть опция сокета IP_PKTINFO. Похоже по описанию на то. Но в Perl эта опция и возвращаемая ей структура не поддерживаются, насколько я понял. Нужно будет делать XS обёртку.

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

I'm on CPAN
I'm on github

arto

Дата 13.6.2011, 08:37 (ссылка)

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

Загрузка ...

Эксперт

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

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

можно попробовать Net::Pcap или Net::RawIP

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