From: "GMane Python" <[EMAIL PROTECTED]>
>
> do
> {
>my $MySocket=new IO::Socket::INET->new(Proto=>"udp",
>PeerPort=>43278,
>PeerAddr=>'10.151.24.174'
> ) or die "Can't make UDP socket: $@";
>$msg="PyHB";
>
>print "Sending Heartbeat.";
>$MySocket->send($ms
But I;ve already got a sleep 5 in there. See?
use IO::Socket::INET;
#use Time::HiRes qw( time alarm sleep );
do
{
my $MySocket=new IO::Socket::INET->new(Proto=>"udp",
PeerPort=>43278,
PeerAddr=>'10.151.24.174'
) or die "Can't make UDP socket: $@";
$msg="PyHB";
pr
On Wed, 12 Jan 2005, John W. Krahn wrote:
> GMane Python wrote:
>
> > 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 C
GMane Python wrote:
Hello all
Hello,
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 ins
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
