Perl script error - undefined subroutine

[doubleugk]

I'm doing my first steps in trying to play around with Perl to tweak my LMS. Therefore I was trying to query the # of players. I found some example code that is doing it that way:

# Get the number of players
my @playerIds;
my $playerCount = sendAndReceive('player count ?');
$debug && print "$playerCount players found\n";
for (my $i = 0; $i < $playerCount; $i++) {
$playerIds[$i] = sendAndReceive('player id $i ?');
$debug && print "Player $i has ID $playerIds[$i]\n";
}

Running the script returns the error:

Undefined subroutine &main::sendAndReceive called at ./get_playerids.pl line 23.

What is wrong? It worked for others!

[mherger]

> Undefined subroutine &main::sendAndReceive called at ./get_playerids.pl
> line 23.

As the message says: sendAndReceive most likely isn't defined in your script.

--

Michael

[doubleugk]

> sendAndReceive most likely isn't defined in your script. -- Michael

That's right.

I was assuming that this is a function provided by LMS. Before the above mentioned code I declare the following:

my $socket = IO::Socket::INET->new (PeerAddr => $serverAddress,
PeerPort => $serverPort,
Proto => 'tcp',
Type => SOCK_STREAM)
or die 'Couldn\'t connect to server';

If this is not the case, I wonder how it worked for the example got the idea from http://forums.slimdevices.com/showpo...95&postcount=6

Any idea?

[bpa]

It's provided in the message you reference just you need to scroll down. It looks like you didn't copy all the code from the source.

# Send given cmd to $socket and return answer with original command removed from
# front if present.  Routine nicked from code by Felix Mueller. :-)
sub sendAndReceive {
  my $cmd = shift;

  return if( $cmd eq "");

  print $socket "$cmd\n";
  $debug > 1 && print "Sent $cmd to server\n";
  my $answer = <$socket>;
  $debug > 1 && print "Server replied: $answer\n";
  $answer =~ s/$cmd //i;
  $answer =~ s/\n//;

  return $answer;
}

[doubleugk]

It's provided in the message you reference just you need to scroll down. It looks like you didn't copy all the code from the source.

Thanx - If one can read it's really an advantage ;-)