[ale] [OT] Perl Question
Jonathan Glass
jonathan.glass at ibb.gatech.edu
Tue Mar 18 15:59:59 EST 2003
I'm using Net::Telnet to connect to a 3Com 3300 Switch. I'm trying to
execute a command at the "Select menu option:" command line. The script
successfully connects, but the command keeps timing out. Here is the
code, input and output logs, and debug log.
TIA
-----test.pl-----
#!/usr/bin/perl
use Net::Telnet ();
$username = "monitor";
$passwd = "monitor";
$t = new Net::Telnet (Timeout => 20,
Dump_log => "/home/jglass/perl/perl-dump.log",
Input_log => "/home/jglass/perl/perl-debug-input.log",
Output_log => "/home/jglass/perl/perl-debug-output.log",
Host => "switch ip address",
Prompt => '/^Login*$/');
$t->open();
# $t->waitfor('/^$/');
$t->print('\n');
$t->print('\n');
$t->login($username, $passwd);
$t->waitfor('/---$/');
$t->print('\n');
# $t->prompt('/Select menu option: $/');
@lines = $t->cmd("bridge port address find <mac address>");
$t->print('logout');
print @lines;
----end test.pl----
---perl-debug-input.log---
\n
Login: monitor
Password:
Menu options: --------------^[[1m3Com SuperStack II Switch
3300^[[0m--------------
bridge - Administer bridging/VLANS
ethernet - Administer Ethernet ports
feature - Administer system features
ip - Administer IP
logout - Logout of the Command Line Interface
snmp - Administer SNMP
system - Administer system-level functions
Type ? for help.
--------------------------------^[[3300 (4 units)
(1)^[[0m------------------
Select menu option:
---end perl-debug-input.log---
---perl-dump.log---
> 0x00000: 5c 6e 0d 0a \n..
> 0x00000: 5c 6e 0d 0a \n..
< 0x00000: ff fd 03 ??.
> 0x00000: ff fc 03 ??.
< 0x00000: ff fb 03 ff fb 01 5c 6e 0d 0a
??.??.\n..
> 0x00000: ff fd 03 ff fd 01 ??.??.
< 0x00000: ff fe 03 ??.
< 0x00000: 0d 0a ..
< 0x00000: 0d 0a 4c 6f 67 69 6e 3a 20 ..Login:
> 0x00000: 6d 6f 6e 69 74 6f 72 0d 0a monitor..
< 0x00000: 6d m
< 0x00000: 6f 6e 69 74 6f 72 0d 0a 50 61 73 73 77 6f 72 64
onitor..Password
< 0x00010: 3a 20 :
> 0x00000: 6d 6f 6e 69 74 6f 72 0d 0a monitor..
< 0x00000: 0d 0a ..
< 0x00000: 0d 0a 4d 65 6e 75 20 6f 70 74 69 6f 6e 73 3a 20 ..Menu
options:
< 0x00010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 1b 5b
--------------.[
< 0x00020: 31 6d 33 43 6f 6d 20 53 75 70 65 72 53 74 61 63 1m3Com
SuperStac
< 0x00030: 6b 20 49 49 20 53 77 69 74 63 68 20 33 33 30 30 k II
Switch 3300
< 0x00040: 1b 5b 30 6d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d
.[0m------------
< 0x00050: 2d 2d 0d 0a --..
< 0x00000: 20 62 72 69 64 67 65 20 20 20 20 20 20 20 20 20 bridge
< 0x00010: 20 20 20 20 2d 20 41 64 6d 69 6e 69 73 74 65 72 -
Administer
< 0x00020: 20 62 72 69 64 67 69 6e 67 2f 56 4c 41 4e 53 0d
bridging/VLANS.
< 0x00030: 0a .
< 0x00000: 20 65 74 68 65 72 6e 65 74 20 20 20 20 20 20 20 ethernet
< 0x00010: 20 20 20 20 2d 20 41 64 6d 69 6e 69 73 74 65 72 -
Administer
< 0x00020: 20 45 74 68 65 72 6e 65 74 20 70 6f 72 74 73 0d Ethernet
ports.
< 0x00030: 0a .
< 0x00000: 20 66 65 61 74 75 72 65 20 20 20 20 20 20 20 20 feature
< 0x00010: 20 20 20 20 2d 20 41 64 6d 69 6e 69 73 74 65 72 -
Administer
< 0x00020: 20 73 79 73 74 65 6d 20 66 65 61 74 75 72 65 73 system
features
< 0x00030: 0d 0a ..
< 0x00000: 20 69 70 20 20 20 20 20 20 20 20 20 20 20 20 20 ip
< 0x00010: 20 20 20 20 2d 20 41 64 6d 69 6e 69 73 74 65 72 -
Administer
< 0x00020: 20 49 50 0d 0a IP..
< 0x00000: 20 6c 6f 67 6f 75 74 20 20 20 20 20 20 20 20 20 logout
< 0x00010: 20 20 20 20 2d 20 4c 6f 67 6f 75 74 20 6f 66 20 -
Logout of
< 0x00020: 74 68 65 20 43 6f 6d 6d 61 6e 64 20 4c 69 6e 65 the
Command Line
< 0x00030: 20 49 6e 74 65 72 66 61 63 65 0d 0a
Interface..
< 0x00000: 20 73 6e 6d 70 20 20 20 20 20 20 20 20 20 20 20 snmp
< 0x00010: 20 20 20 20 2d 20 41 64 6d 69 6e 69 73 74 65 72 -
Administer
< 0x00020: 20 53 4e 4d 50 0d 0a SNMP..
< 0x00000: 20 73 79 73 74 65 6d 20 20 20 20 20 20 20 20 20 system
< 0x00010: 20 20 20 20 2d 20 41 64 6d 69 6e 69 73 74 65 72 -
Administer
< 0x00020: 20 73 79 73 74 65 6d 2d 6c 65 76 65 6c 20 66 75
system-level fu
< 0x00030: 6e 63 74 69 6f 6e 73 0d 0a nctions..
< 0x00000: 0d 0a 54 79 70 65 20 ..Type
< 0x00000: 3f 20 66 6f 72 20 68 65 6c 70 2e 0d 0a ? for
help...
< 0x00000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d
----------------
< 0x00010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d
----------------
< 0x00020: 1b 5b 31 6d 49 42 42 20 33 33 30 30 20 28 34 20 .[3300 (4
< 0x00030: 75 6e 69 74 73 29 20 28 31 29 1b 5b 30 6d 2d 2d units)
(1).[0m--
< 0x00040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d
----------------
< 0x00000: 0d 0a 53 65 6c 65 63 74 20 6d 65 6e 75 20 6f 70 ..Select
menu op
< 0x00010: 74 69 6f 6e 3a 20 tion:
------end perl-dump.log------
--
Jonathan Glass
Systems Support Specialist II
Institute for Bioengineering & Bioscience
Georgia Institute of Technology
404.385.0127
This is a digitally signed message part
More information about the Ale
mailing list