#x27;t make UDP socket: $@";
$msg="PyHB";
print "Sending Heartbeat.";
$MySocket->send($msg);
sleep (5);
}
while (1==1);
-Dave
"Chris Devers" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> On Wed, 12 Jan 2005, John W. Krahn wrote:
Hello all
I'm absolutely new to PERL -- actually, I'm using it for exactly 1 project
I'm mostly through. On Netware's v5.8 of PERL, I have basically a loop, a
while 1==1 { }. On Netware, I can't break out of this with CTRL-C.
CTRL-D, etc. I'd like to put a check inside the loop to see if 'bre
It does not compile on Netware, but it's OK on Windows. For Netware, I
copied from my Windows PC the perl/lib and perl/site directories to Netware
because Sockets::IO was not found. Now, I get:
Missing $ on loop variable at sys:\perl\lib/strict.pm li
BEGIN failed--compilation aborted at sys:\per
t; wrote in message
news:[EMAIL PROTECTED]
>
>
> GMane Python wrote:
> > Thank you for the reply to my topic, not BASH wars, but does this look
> > correct?
> >
> >
> >
> > use IO::Socket;
> > use strict;
> > use Time::HiRes qw( time alar
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=>'
Thank you for the reply to my topic, not BASH wars, but does this look
correct?
use IO::Socket;
use strict;
use Time::HiRes qw( time alarm sleep );
$server_ip = 'localhost';
$server_port = 43278;
$microseconds = 5_000_000;
while ( <> ) {
my $message =
IO::Socket::INET->new(Proto=>"udp",PeerPo
Hello Everyone.
Whil e reading the Python Cookbook as a means of learning Python, I
came across the script by Nicola Larosa. Not knowing anything about PERL, I
was wondering if there were a translation in PERL so I could have my Netware
servers send heartbeats to the heartbeat server?
