期望 Perl 控制台上的脚本输出

Question

我有一个 exp 脚本 -script.exp 来输入名称和密码。它调用 test.sh 文件，如下所示。

set timeout -1
spawn ./test.sh -create
match_max 100000
expect -exact "Enter the name: "
send -- "abcd\r"
expect -exact "\r
Please confirm password: "
send -- "xxy\r"
expect -exact "\r
expect eof

它在期望窗口给我一个输出 - “成功输入姓名” 如果出现问题，它会引发异常或错误消息。

我在 Perl 文件中运行这个期望脚本——如下所示

$cmd="expect script.exp";
system($cmd);
$outputfromexp=?

运行脚本后，我需要在 Perl 控制台中输出 exp 的失败或通过状态。

我该怎么做？请帮帮我。

我尝试按照我的 Perl 脚本中的建议进行调用--

use strict;
use warnings;
    sub sysrun {
            my ($command) ="expect script.exp";
            my $ret_code;

            $ret_code = system("$command");
            if ( $ret_code == 0 ) {
                    # Job suceeded
                    $ret_code = 1;
            }
            else {
                    # Job Failed
                    $ret_code = 0;
            }
            return ($ret_code);
    }

    my $ret_code=sysrun();

    print "reuturmsfg- $ret_code\n";

但它什么也没打印——只是 reuturmsfg-。

我做了更改-

my $ret_code=sysrun();

它给了我 0 和 1 的返回码。

Answer 1

如果我对问题的理解正确，得到你想要做的返回码：

system($cmd);
my $ret_code = $?;

从执行中获取 STDOUT 输出：

my @out = `$cmd`;
my $ret_code = $?;

我强烈建议在您的代码中使用严格和警告。