perl - 如何抑制或重定向到系统命令的变量输出

Question

例如，我正在尝试执行系统命令

 system('git clone .....' );
    if ($?) {
        croak('Error while cloning git repository');
    }

这里我检查结果是否成功，但是如何不从系统命令输出错误，例如在我的例子中，我可以得到类似的东西

Permission denied (publickey).
fatal: Could not read from remote repository.

Please make sure you have the correct access rights
and the repository exists.

来自执行的命令。
我需要将此错误放入变量中并抑制它(不要将其打印到终端)
然后检查此错误消息。
或者至少只是抑制它。
我需要按以下方式测试这样的子程序

dies_ok { MyModule::sub_uses_system_command() } 'Died :(';

有可能得到这样的结果吗？
提前致谢。

Answer 1

system只返回被执行程序的退出状态，如果你想获得标准输出你可以使用 qx/command/或反引号执行命令:

my $result = `git clone [...] 2>&1`

您应该注意执行命令的 qx/command/ 和反引号形式只返回 STDOUT，因此如果您想要捕获 STDERR，您需要在命令中将 STDERR 重定向到 STDOUT。