I'm having a bit of trouble so far. The code below is what I've found on
different web sites as being the functions I believe I need:
use IO::Socket;
use strict;
use Time::HiRes qw( time alarm sleep );
while ( <> ) {
my $message =
IO::Socket::INET->new(Proto=>"udp",PeerPort=>'43278',PeerAddr=>'127.0.0.1')
or die "Can't make UDP socket: $@";
$message->send("PyHB");
sleep (5_000_000);
}
However, it doesn't register on my Python server like the Python script
does. Any idea what I'm doing wrong?
Thanks
-Dave
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
