如何在控制台中读取 while true 进程的输出？

Question

对于代码

my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print "STDOUT: $stdout STDERR: $stderr EXIT: $exit";

如果我的 $cmd 是“ls”，那么 $stdout 可以有正确的输出。

但是，如果我的 $cmd 是“perl whileTrue.pl”，那么我如何在运行 perl 时获得输出？在 whileTrue.pl 中，它将在控制台中打印我的输入。

因为如果我不通过 ssh 运行它，输出将打印到控制台。然而，当我 ssh 时，我无法看到我的输出，直到我真正结束这个过程。

我可以有类似冲洗概念的东西吗？

Answer 1

看起来像 register_handler 方法允许对输出进行非阻塞处理。

Answer 2

您还可以使用 Net::OpenSSH 代替 Net::SSH::Perl :

use Net::OpenSSH;
my $ssh = Net::OpenSSH->new($host, user => $user, password => $pass);
$ssh->system($cmd);