Okay, I've now got the following, but am still struggling to read responses. The current <$s> is an optimistic attempt that occasionally works, but generally just makes the script hang after doing the pause.
#!/usr/bin/perl -w use strict; use IO::Socket; my $player = '00%3A04%3A20%3A05%3Aa9%3A87'; my $s = new IO::Socket::INET (PeerAddr => 'localhost', PeerPort => 9023, Proto => 'tcp', Type => SOCK_STREAM) or die 'Couldn\'t connect to server'; $s->autoflush(1); print $s "$player pause\n"; print $s "exit\n"; print <$s>; close $s; Thanks, Max Dan Sully Wrote: > Just use IO::Socket instead of Net::Telnet. -- max.spicer The wild things roared their terrible roars and gnashed their terrible teeth and rolled their terrible eyes and showed their terrible claws but Max stepped into his private boat and waved good-bye _______________________________________________ Discuss mailing list [email protected] http://lists.slimdevices.com/lists/listinfo/discuss
