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)