论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2014-12-31 11:19 |只看该作者 |倒序浏览

程序目的是备份博科san switch 的配置信息，程序内容如下：
1  #!/usr/bin/perl -w
   2  use Expect;
   3  $switch_ip = "192.168.17.15";
   4  #$Date = `date`;
   5
   6  $get_log = Expect->spawn( "ssh $switch_ip -l admin") or die "Couldn't spawn ssh,$!";
   7  $get_log->log_stdout(1);
   8  #$get_log->debug(2);
   9
10  if ($get_log->expect(10, -re=>qr /Are .* $yes\/no$\?/i) ){
11       $get_log->send("yes\r");
12  }
13
14  elsif ($get_log->expect( 10, -re=>qr/admin\@.* password:/i)) {
15  $get_log->send("1qaz!QAZ\r" );
16  $get_log->send("configupload -scp 192.168.18.201,root,/bakdat/wzs/switch15.txt\r");
17       if ($get_log->expect(2,"Password:")) {
18       $get_log->send("HA5-5tgb\r");
19       }
20
21  }
22
23  #$get_log->send("exit \r");

15行之前执行没有问题，但是执行完16行号后，程序直接退出，为执行17行后面的代码。
执行结果：
HA5-BF01#[/bakdat/wzs/perl]perl san1.pl
admin@192.168.17.15's password:
configupload -scp 192.168.18.201,root,/bakdat/wzs/switch15.txt

-----------------------------------------------------------------
configupload -scp 192.168.18.201,root,/bakdat/wzs/switch15.txt
HA5-SAN15:admin> configupload -scp 192.168.18.201,root,/bakdat/wzs/switch15.txt
Password: HA5-BF01#[/bakdat/wzs/perl]

程序

文库|博客

aku1

家境小康

论坛徽章:: 0

2楼 [报告]

发表于 2014-12-31 14:06 |只看该作者

没用这个模块，查了下
$object->send(@strings)
Sends the given strings to the spawned command. Note that the strings are not logged in the logfile (see print_log_file) but will probably be echoed back by the pty, depending on pty settings (default is echo) and thus end up there anyway. This must also be taken into account when expect()ing for an answer: the next string will be the command just sent. I suggest setting the pty to raw, which disables echo and makes the pty transparently act like a bidirectional pipe.
如果是调用scp命令，这里看起来应该改成
$get_log->spawn("configupload -scp 192.168.18.201,root,/bakdat/wzs/switch15.txt\r");

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

ts99

丰衣足食

论坛徽章:: 0

3楼 [报告]

发表于 2014-12-31 14:37 |只看该作者

本帖最后由 ts99 于 2014-12-31 14:38 编辑

Hi aku1, 我是先要登录到switch上，然后执行configupload收集配置，configupload中要调用scp或是ftp命令，所以出现二次expect匹配。
expect debug输出如下：
perl san1.pl
Starting EXPECT pattern matching...
at /opt/perl_32/lib/site_perl/5.8.8/Expect.pm line 597
Expect::expect('Expect=GLOB(0x4008a5f4)', 10, '-re', '(?i-xsm:Are .* $yes/no$\?)') called at san1.pl line 10
admin@192.168.17.15's password: Starting EXPECT pattern matching...
at /opt/perl_32/lib/site_perl/5.8.8/Expect.pm line 597
Expect::expect('Expect=GLOB(0x4008a5f4)', 10, '-re', '(?i-xsm:admin\@.* password

') called at san1.pl line 10
Starting EXPECT pattern matching...
at /opt/perl_32/lib/site_perl/5.8.8/Expect.pm line 597
      Expect::expect('Expect=GLOB(0x4008a5f4)', 2, 'Password:') called at san1.pl line 17

-----------------------------------------------------------------
HA5-SAN15:admin> Closing spawn id(3).
at /opt/perl_32/lib/site_perl/5.8.8/Expect.pm line 1621
      Expect::hard_close('Expect=GLOB(0x4008a5f4)') called at /opt/perl_32/lib/site_perl/5.8.8/Expect.pm line 1848
      Expect:

ESTROY('Expect=GLOB(0x4008a5f4)') called at san1.pl line 0
eval {...} called at san1.pl line 0
spawn id(3) closed.
Pid 22329 of spawn id(3) terminated, Status: 0xFF00