请教 捕捉 ssh 输出的问题

L_WC

/script.pl ：
if (fork())
{
print "hello";
}
else
{
sleep 5;
}




linux终端 执行  ssh 127.0.0.1 '/script.pl' hello    (瞬间打印到终端屏幕)
(睡眠5s，然后结束命令)

但是用perl 执行， 是在5s后才打印hello。  怎么能即时的打印hello呢，不需要等待script.pl命令结束。

$cmd 就是 ssh 127.0.0.1 '/script.pl' hello

my $pid = open (CMD, '-|', $cmd);
while(<CMD>)
{
print;
}

close CMD;

q1208c

回复 1# L_WC

输出缓存？

L_WC

回复 2# q1208c

对的

yinyuemi

回复 1# L_WC

try$|=1

laputa73

ssh交互执行可以用expect

zhouzhen1

建议用Net::OpenSSH