关于expect perl的问题

Question

我是expect perl 编程的新手，必须编写一些脚本来自动执行某些任务。基本上我需要远程登录到 unix 机器，发出一些 unix 命令并检查一些输出。 我已经编写了一个 telnet 的小脚本，但我对如何检查 unix 命令的状态有疑问。

#!/usr/bin/perl
use Expect;
$timeout=10;
my $exp = Expect->spawn("telnet test-b -l regress")
    or die "Cannot spawn telnet: $!\n";;
my $spawn_ok;

$foo1=$exp->expect($timeout, 'Password:');
print "######Received Password prompt\n";

$exp->send("MaRtInI\n");
print "######Sent password\n";

$foo1=$exp->expect($timeout, '%');
print "######Received root prompt\n";
$exp->send("cd /var/tmp");

我在这里对如何检查 cd 命令是否真正成功表示怀疑，因为如果我给出 cd /var/temp12 ，而不是 cd /var/tmp （这会-不存在），我看到了相同的结果。如何检查我通过 cd 发送的 unix 命令是否确实成功？

Answer 1

使用echo $?在服务器端找出最后一个命令的退出状态，然后通过qr/^\d+/m进行处理（m 表示“字符串或换行符开头之后”）。

我编写了一个示例脚本，它确实生成了预期的 shell，并尝试 chdir 到作为参数给出的路径，例如 perl myscript.pl /tmp 或 perl myscript.pl /noexist

#!/usr/bin/perl -w
use strict;

use Expect;

my $exp = Expect->spawn("/bin/bash")
    or die;

$exp->send ("cd ".(shift)."; echo \$?\n");
$exp->expect(2, # hardcoded timeout
    [ qr/^0/m => sub { print "chd\n" } ], # regex => sub
    [qr/^[1-9]/m => sub {print "no chd\n"}] 
);

PS 我想知道如何在 except 中获取（捕获）（来自）（我的正则表达式）。 [ qr/(\d+)/, sub { ...($1) } ] 对我不起作用。