[Perl] use Expect

最新推荐文章于 2022-11-13 12:31:00 发布

ASX20042005

最新推荐文章于 2022-11-13 12:31:00 发布

阅读量3.6k

点赞数

文章标签： perl list delay 脚本 cmd string

perl 专栏收录该内容

12 篇文章

订阅专栏

本文深入解析 Perl Expect 模块中的 spawn、expect 和 send 函数，提供实例演示如何通过这些函数实现与程序的交互，包括执行命令、捕获输出和发送指令。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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();