Несколько сетевых интерфейсов и multicast

@noisy · Регистрация: 01.02.2015

Author24 — интернет-сервис помощи студентам

Добрый день, форумчане!
Нужна ваша помощь.

Есть многопоточное приложение (Perl), генерирует multicast.
Есть сервер, на котором приложение работает, на сервере несколько сетевых интерфейсов.
Нужно привязать multicast к одному из интерфейсов, т.е. чтоб multicast шел только через один интерфейс.
Как это реализовать?
пробовал bind

Perl

    
    $cfg{"BIND_IP"} = '192.168.1.3'
        my $inet_addr = inet_aton($cfg{"BIND_IP"});
        my $paddr     = sockaddr_in($UDPport, $inet_addr);
        bind($tsSocket, $paddr) or die "bind:  $!";

но выдает ошибку Use of uninitialized value in subroutine entry at D:/perl/perl/lib/Socket.pm line 833

volodin661 · 01.02.2015, 18:25

значит $paddr undefined после вызова sockaddr. проверял ?

@noisy · 01.02.2015, 18:43 **[ТС]**

Странно, код

Perl

1	my $inet_addr = inet_aton($cfg{"BIND_IP"});

не инициализирует переменную $inet_addr (undef)
если прописать строку

Perl

1	my $inet_addr = inet_aton('192.168.1.3');

то все нормально

но теперь другая ошибка.
так как приложение многопоточное, то выдает ошибку
bind: Обычно разрешается только одно использование адреса сокета (протокол/сетевой адрес/порт).

Вот код github.com OpenEPG.pl строка 97

@noisy · 03.02.2015, 19:10 **[ТС]**

реализовал с помощью IO::Socket::Multicast
вопрос закрыт

@but · 18.02.2015, 11:13

Попробуй немного переписать свой код. Тебе нужно делать запрос мультику, или лить по запросу?

Perl

1	$cfg = Net::Interface->new('eth0');

volodin661 5986 / 1995 / 323 Регистрация: 10.12.2013 Сообщений: 6,875
	01.02.2015, 18:25	2
	значит $paddr undefined после вызова sockaddr. проверял ? 0

@noisy 0 / 0 / 0 Регистрация: 01.02.2015 Сообщений: 3
	03.02.2015, 19:10 [ТС]	4
	реализовал с помощью IO::Socket::Multicast вопрос закрыт 0

	18.02.2015, 11:13