Expect模块可以用来向需要交互执行的程序输入必要的信息。相当于expect脚本的Perl语言实现。
spawn函数——对应expect脚本中的spawn
语法：Expect->spawn($cmd,@param);
参数：LIST或program LIST形式。
功能：调用exec命令执行程序。
返回值：对象本身。
expect函数——对应expect脚本中的expect
语法：Expect::expect($timeout,-i => @exp_list,@patternlist,-i => $exp,@pattern_list,...);
or??? $exp->expect($timeout,...);
参数：$timeout是超时时间，Patterns的形式是[ $pattern_type,$pattern,$sub,@subparms ]，pattern_type的形式'-re'时是(RegExp,default)，'-ex'时是(exact)，sub是函数名，将按&{$sub}($exp,@subparms)形式来调用。
功能：捕获程序输出。
返回值：数组。
用法举例：
1.$object->expect(15,'match me exactly','-re','matchs+mes+exactly');
2.$telnet->expect(10,$match);
3.$exp->expect($timeout,
????????????? [ qr/username: /i,sub { my $self = shift;$self->send("$usernamen");exp_continue; }],
????????????? [ qr/password: /i,sub { my $self = shift;$self->send("$passwordn");exp_continue; }],
????????????? $shell_prompt);
send函数——对应expect脚本中的send
有时不是特别好用，推荐send_slow函数。
send_slow函数
语法：$exp->send_slow($delay,String);
参数：delay是延时时间，第二个参数是要输出的字符串。
功能：获得期待的字符串后，等待指定的时间，向程序输出预先指定的字符串。
返回值：无。
附：控制字符Ctrl的输入方法是c，后面接其他字符。
interact函数——对应expect脚本中的interact
语法：$exp->interact([$in_handle],[$escape sequence])
参数：第一个参数是输入的文件句柄，第二个参数是逃逸的列表
功能：退出expect，调用程序继续执行。
返回值：无
soft_close函数
语法：$exp->soft_close();
参数：不接收参数。
功能：结束调用程序的运行。
返回值：程序退出时的状态。
hard_close函数
语法：$exp->hard_close();
参数：不接收参数。
功能：彻底的结束程序运行。
返回值：程序退出时的状态。
用法举例： my $exp = Expect->spawn($cmd,@param) or die "Cannot spawn $cmdn"; $exp->expect($timeout,-re=>'Enter passphrase:'); $exp->send_slow($delay,"$passr"); $exp->soft_close(); $exp->hard_close();
