如何将 “Expect” 输出的结果进行保存？

huifeideluotuo

需求：
公司交换机比较多，为了安全，做了IP绑定，所以想写个perl脚本自动登录到交换机，然后进行IP绑定操作。

问题：
目前可以自动登录到交换机，问题是在交换机上执行命令后输出的结果如何赋值，因为要用到输出结果中的某个值。


代码如下：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Expect;
   
6. 
   
7. 
   
8. my $host   = "192.168.x.xx";
   
9. my $passwd = "xxxx";
   
10. 
    
11. 
    
12. my $exp     = new Expect;
    
13. #$exp->debug(3);
    
14. 
    
15. my $command = "telnet $host";
    
16. $exp->spawn($command) or die "Cannot spawn $command: $!\n";
    
17. 
    
18. my $pass = $exp->expect( 6, 'Password' );
    
19. $exp->send("$passwd\n") if ($pass);
    
20. 
    
21. my $admin_mode = $exp->expect( 6, 'login' );
    
22. $exp->send("sys\n") if ($admin_mode);
    
23. 
    
24. $exp->send("display mac-address interface Ethernet1/0/2\n");
    
25. 
    
26. 
    
27. $exp->send("quit\n");
    
28. $exp->send("quit\n");
    
29. 
    
30. $exp->interact();

复制代码

请问如何将“$exp->send("display mac-address interface Ethernet1/0/2\n");” 输出值进行保存呢？ 谢谢！

scrit

我会用这种方法， 你试试看呢

1. $exp->send("display mac-address interface Ethernet1/0/2\n");
   
2. 
   
3. $exp->expect( 35, undef );
   
4. my @line = $exp->before();
   
5. print @line;
   
6. 
   
7. 
   
8. 
   
9. 
   
10. 
    
11. $exp->send("quit\n");
    
12. 
    
13. $exp->send("quit\n");
    
14. 
    
15. 
    
16. 
    
17. $exp->interact();
    

复制代码

huifeideluotuo

谢谢，这个方法可以！

chinaboywg

log_file xxx.log