Perl Expect模块

Expect是Unix系统中用来进行自动化控制和测试的软件工具，由Don Libes制作，作为Tcl脚本语言的一个扩展，应用在交互式软件中如telnet、ftp、Passwd、fsck、rlogin、tip、ssh等等.该工具利用Unix伪终端包装其子进程，允许任意程序通过终端接入进行自动化控制；也可利用Tk工具，将交互程序包装在X11的图形用户界面中.

 

当然Perl也集成了Expect模块

my $exp = Expect->new;
      $exp = Expect->spawn("command");
      $exp->expect(2, [
                      'password',
                      sub {
                           my $self_scp = shift;
                                 $self_scp->send("$pass\n");
                          }
                      ],
                      [
                      '\(yes/no\)?',
                      sub {
                           my $self = shift;
                                 $self->send("yes\n");
                                  exp_continue;
                          }
                      ],
                   );
       $exp->send("exit\n")  if ($exp->expect(undef,'#'));

 

上述是一个简单的Expext示例.

command填写要触发的执行命令

password 和 \(yes/no\)?可理解为匹配的正则

$pass与yes均为正则匹配后自动输入的字符(必须跟\n)