26 lines
545 B
Perl
26 lines
545 B
Perl
#!/usr/bin/perl
|
|
# server
|
|
use strict;
|
|
use IO::Socket::Multicast;
|
|
use Getopt::Long;
|
|
|
|
my ($group,$port);
|
|
GetOptions(
|
|
"g=s" => \$group,
|
|
"p=s" => \$port
|
|
);
|
|
|
|
|
|
#use constant DESTINATION => '226.1.1.2:2000';
|
|
my $sock = IO::Socket::Multicast->new(Proto=>'udp',PeerAddr=>$group,PeerPort=>$port);
|
|
|
|
while (1) {
|
|
#my $message = localtime;
|
|
my $message = "DATA";
|
|
#$message .= "\n" . `who`;
|
|
#$message .= "\n";
|
|
$sock->send($message) || die "Couldn't send: $!";
|
|
} continue {
|
|
sleep 1;
|
|
}
|
|
|