[ale] [OT] Perl Question

Chris Fowler cfowler at outpostsentinel.com
Tue Mar 18 17:31:48 EST 2003


>     @lines = $t->cmd("bridge port address find <mac address>")

I"m a newbie in perl but this looks to me like there is no \r\n on the
end of that command.  Try adding '\r\n' to the end and see what happens.



On Tue, 2003-03-18 at 15:59, Jonathan Glass wrote:
> 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


_______________________________________________
Ale mailing list
Ale at ale.org
http://www.ale.org/mailman/listinfo/ale






More information about the Ale mailing list