Perl Expect模块

iszjw

　　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)