perl - 如何跟踪远程文件？

Question

我正在尝试找到一种在远程主机上跟踪文件的好方法。这是在 Linux 机器的内部网络上。要求是:

1. 必须表现良好(没有额外的进程，或持续输出)

2. 不能需要某人的宠物 Perl 模块。

3. 可以通过 Perl 调用。

4. 如果可能，不需要在远程计算机上自定义构建脚本或实用程序(常规 Linux 实用程序就可以)

我尝试过的解决方案大体是这样的

ssh remotemachine -f <some command>

“某些命令”已:

tail -f logfile

基本 tail 不起作用，因为本地 ssh 进程终止后远程进程继续将输出写入终端。

$socket = IO:Socket::INET->new(...);
$pid = fork();
if(!$pid)
{
  exec("ssh $host -f '<script which connects to socket and writes>'");
  exit;
}

$client = $socket->accept;
while(<$client>)
{
  print $_;
}

这效果更好，因为本地进程退出后屏幕上没有任何输出，但远程进程没有发现它的套接字已关闭并且它会无限期地存在。

Answer 1

你试过吗

ssh -t remotemachine <some command>

ssh 手册页中的 -t 选项:

 -t      Force pseudo-tty allocation. This can be used to execute 
         arbitrary screen-based programs on a remote machine, which
         can be very useful, e.g. when implementing menu services.
         Multiple -t options force tty allocation, even if ssh has no local tty.

而不是

 -f      Requests ssh to go to background just before command execution.  
         This is useful if ssh is going to ask for passwords or passphrases, 
         but the user wants it in the background.
         This implies -n.  The recommended way to start X11 programs at a remote
         site is with something like ssh -f host xterm.