TStanley has asked for the wisdom of the Perl Monks concerning the following question:
I am trying to connect to an Adtran TSU-IQ frame modem via its telnet interface, but I am having a bit of an issue
actually working with its menu based interface. My short script is below:
TStanley
--------
People sleep peaceably in their beds at night only because rough men stand ready to do violence on their behalf. -- George Orwell
And here is the output from the above script:#!C:\perl\bin\perl -w use Net::Telnet; my $NT = new Net::Telnet(); $NT->open('128.999.999.999'); #obviously not the IP address $NT->cmd(); my @out1 = $NT->cmd('1\n'); print "OUT1: @out1";
I am trying to enter option 1, which is the local login. If I try to pass '1' again using the cmd method, it merely repeats the output again. Any suggestions would be greatly appreciated.C:\Documents and Settings\toms\Desktop>perl isdn.pl OUT1: ©[3;1H______________________________________________________________ +___________ ______©[5;1H©[5;1H 1 - Local Login ©[6;1H 2 - Remote Login ©[7;1H 3 - Logout ©[23;1H_____________________________________________________________ +___________ _______©[24;2H©[KEnter Selection -
TStanley
--------
People sleep peaceably in their beds at night only because rough men stand ready to do violence on their behalf. -- George Orwell
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Using Net::Telnet
by pc88mxer (Vicar) on Mar 05, 2008 at 18:32 UTC | |
by Tanktalus (Canon) on Mar 06, 2008 at 17:51 UTC | |
Re: Using Net::Telnet
by TStanley (Canon) on Mar 06, 2008 at 20:21 UTC |
Back to
Seekers of Perl Wisdom