UDP Message alle x Minuten verschicken

[The Spirit]

Hi.
Gibt es eine Möglichkeit, alles x Minuten eine Nachricht per UDP zu verschicken?
Danke

[marvin78]

Klar. Mit einem at und einer sub in der myUtils.

Code Auswählen Erweitern

sub UDP_Msg($$)
{
my ($dest,$cmd)  = @_;
my $sock = IO::Socket::INET->new(
    Proto    => 'udp',
    PeerPort => 6666,
    PeerAddr => $dest
) or die "Could not create socket: $!\n";
$sock->send($cmd) or die "Send error: $!\n";
return "send $cmd";
}