Parent Directory | Revision Log
better delimiter at beginning of packet
1 | dpavlin | 1 | #!/usr/bin/perl |
2 | |||
3 | use strict; | ||
4 | use lib '../blib/lib','../blib/arch'; | ||
5 | use IO::Socket::Multicast; | ||
6 | |||
7 | use constant GROUP => '224.0.0.103'; | ||
8 | use constant PORT => '3235'; | ||
9 | |||
10 | my $sock = IO::Socket::Multicast->new(LocalPort=>PORT,ReuseAddr=>1); | ||
11 | $sock->mcast_add(GROUP) || die "Couldn't set group: $!\n"; | ||
12 | |||
13 | while (1) { | ||
14 | my $data; | ||
15 | next unless $sock->recv($data,1024); | ||
16 | dpavlin | 4 | print "#" x 30, "\n", $data, "\n", "-" x 30, "\n"; |
17 | dpavlin | 1 | } |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |