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, @patternlist, -i => \@exp_list, @patternlist, -i => $exp, @pattern_list, ...);
参数:$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','match\s+me\s+exactly');
2.$telnet->expect(10,'-re',$match);
3.$exp->expect($timeout,
[ qr/username: /i, sub { my $self = shift;$self->send("$username\n");exp_continue; }],
[ qr/password: /i, sub { my $self = shift;$self->send("$password\n");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 $cmd\n";
$exp->expect($timeout, -re=>'Enter passphrase:');
$exp->send_slow($delay,"$pass\r");
$exp->soft_close();
$exp->hard_close();