Re: Loop while socket connection exists

[Steve Bertrand]

You need to remove the 'my' for $whileloop within the while() statement:

while ($whileloop < 1) {
       if ($sock) {
               printf "Socket connected\n";
               printf "$counter\n";
               $counter++;
               sleep 2;
       } else {
       my $whileloop = 99;

         ^^ -- get rid of my

Steve

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/