perl 问题

jtyun

请问有A,B，C 三台设备，如果A设备想通过telnet登录到C设备，必须先登录到B设备才能到C设备，然后在C设备上执行相关命令
使用perl  的net::telnet模块
有谁能指点一下这样的程序该怎么写呢？

yybmsrs

参考

1. use Net::Telnet;
   
2. 
   
3. my $t = new Net::Telnet ( Timeout => 10, Prompt => '/[#]\s*$/' );
   
4. $t->open( 'ip1' );
   
5. $t->waitfor( Match => "/ogin:/",Timeout => 10 );
   
6. $t->print( 'user1' );
   
7. $t->waitfor( Match => "/assword:/",Timeout => 10 );
   
8. $t->print( 'pass1' );
   
9. $t->waitfor( Match => "/#/",Timeout => 10 );
   
10. $t->print( "telnet ip2" );
    
11. $t->waitfor( Match => "/ogin:/",Timeout => 10 );
    
12. $t->print( 'user2' );
    
13. $t->waitfor( Match => "/assword:/",Timeout => 10 );
    
14. $t->print( 'pass2' );
    
15. $t->waitfor( Match => "/#/",Timeout => 10 );
    
16. my @lines = $t->cmd( 'who' );
    
17. print @lines;

复制代码

laputa73

expect(waitfor)的精髓