#!/usr/bin/perl # client use strict; use IO::Socket::Multicast; use constant GROUP => '227.50.49.48'; use constant PORT => '9897'; my $sock = IO::Socket::INET->new(Proto=>'udp',LocalPort=>PORT); $sock->mcast_add(GROUP) || die "Couldn't set group: $!\n"; while (1) { my $data; next unless $sock->recv($data,1024); print $data; }
In reply to Re: reading from multicast socket
by Chief of Chaos
in thread reading from multicast socket
by Monky Python
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |