Hello all,
I am trying to automate a simple telnet to port 7010 and give me the
output to the command "gstatus". However, I get the following error:
./telnet_mod.test.pl
pattern match timed-out at ./telnet_mod.test.pl line 6
Here are the contents of the script:
---------------------------------------
#!/usr/bin/perl -w
use Net::Telnet ;
$t = new Net::Telnet (Timeout => 10) ;
$t->open(Host => "129.145.155.9",
Port => "7010") ;
$t->waitfor('/Escape/') ;
$t->cmd('gstatus') ;
---------------------------------------
...and this is what I am trying to automate:
-----------------------------------
telnet 129.145.155.9 7010
Trying 129.145.155.9...
Connected to hostname.domain.com
Escape character is '^]'.
gstatus <enter>
-----------------------------------
I've tried so many things, and nothing works.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
