论坛 › Perl › Perl Expect模块

iszjw 发表于 2017-5-17 09:16:29

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)

查看完整版本: Perl Expect模块