請(qǐng)教 捕捉 ssh 輸出的問題

L_WC

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




linux終端 執(zhí)行  ssh 127.0.0.1 '/script.pl' hello    (瞬間打印到終端屏幕)
(睡眠5s，然后結(jié)束命令)

但是用perl 執(zhí)行， 是在5s后才打印hello。  怎么能即時(shí)的打印hello呢，不需要等待script.pl命令結(jié)束。

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

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

close CMD;

q1208c

回復(fù) 1# L_WC

輸出緩存？

L_WC

回復(fù) 2# q1208c

對(duì)的

yinyuemi

回復(fù) 1# L_WC

try$|=1

laputa73

ssh交互執(zhí)行可以用expect

zhouzhen1

建議用Net::OpenSSH