Perl Net::SSH2和缓冲

Question

有一个使用Net:SSH2模块的小perl脚本

#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH2;

my $ssh2 = Net::SSH2->new();
$ssh2->connect('testhost') or die $!;
if ($ssh2->auth_publickey('admin', 'id_rsa.pub', 'id_rsa')) {
print "Connected\n";
} else {
print "failed";
}
my $sess = $ssh2->channel() or die "Unable to create chan\n";
$sess->blocking(1);
$sess->shell();
print $sess "sudo /root/remote.pl\n";
print "$_\n" while <$sess>;
$sess->send_eof;
$sess->close;

执行此命令后，我有时会看到/root/remote.pl的输出，有时却看不到。我认为问题出在输出缓冲上，但我不知道如何解决这个问题。

Answer 1

如果在linux系统上使用此脚本，为什么不使用perl back-tilt来使用linux命令，而不是使用模块呢？

示例：

#!/usr/bin/perl
use strict;
use warnings;

# Command
my $cmd = "ssh login:password@host; sudo /root/remote.pl; exit";

# Execute the command
`$cmd`

PS:如果remote.pl脚本有一些打印，您应该会看到它们。