perl - 使用SSH实时记录到文件？

Question

my $file = 'log.log';
my $cmd = 'sysstat';
my $ssh = Net::SSH::Perl->new($host);
$ssh->login('admin', 'password');

open my $in, "-|", ($ssh->cmd($cmd))[0];
open my $out_fh, ">", $file;
#print+($ssh->cmd($cmd))[0]."\n";
while (my $line = <$in>) {
    print { $out_fh } $line;
}

关于如何将ssh输出实时记录到文件的任何建议？ $ cmd将永远运行，我希望它吐出的每一行都实时写入文件中。

Answer 1

使用Net::SSH::Perl无法做到这一点……至少，这不容易!

使用Net::OpenSSH代替:

$ssh = Net::OpenSSH->new($host, user => $user, password => $password);
$ssh->system({stdout_file => $file}, $cmd);