[Lachy]

Code:

#!/usr/bin/perl
my $i=1;
my $x;
my @connection=();
my $socket_handle;
use IO::Socket;
my $listen_socket = new IO::Socket::INET
(
LocalHost  => 'my ip(removed)',
LocalPort  => 500,
Proto      => 'tcp',
Listen     => 20,
Reuse      => 1,
);
while (1)
{
  if ($connection[$i] = $listen_socket->accept) { $i++; print "Accepting connection.\n"; }
  for($x=1;$x<=$i;$x++) {
    $socket_handle=$connection[$i];
    while ( $_ = <sock_handle> )
    {
      chomp;
      send $socket_handle, "Commanded received: ",$_,"\n";
      print "Sending data: ",$_,"\n";
    }
  }
}
close $listen_socket;
exit;

Can anybody tell me what's wrong?
It's accepting the connections just fine, but it won't return the commands I send it.

Thanks in advance,
Lachy.

[Lachy]

Sorry, <sock_handle> there should be <$socket_handle>. Still doesn't work, however.

[Chas]

Hey Lachy,

Are you just seeing the "Accepting connection." on STDOUT? Going over the code quickly it looks like you have $i set to 1 here:

Code:

if ($connection[$i] = $listen_socket->accept) { $i++; print "Accepting connection.\n"; }

then increment it to 2. When trying to access to the connection again at that index here:

Code:

$socket_handle = $connection[$i];

you are trying to access it with 2 when you should be using 1, no?. Other than that, I don't see anythign glaring wrong with it. Have you tried using strict and warnings?

~Charlie

[Chas]

Actually, I think you want to be using $x instead if $i here:

Code:

$socket_handle = $connection[$x]

~Charlie