perl：使用system()启动进程，然后检查它是否在特定的显示编号下运行

Question

我有一个锁定的“信息亭”终端服务器。

该终端服务器有一个 perl 脚本作为其 .Xsession，并启动一个 Tk 界面。当 Tk 界面完成后，perl 脚本启动“process2”并让用户与“process2”（这是一个图形应用程序）交互。

如果用户篡改“process2”并使其崩溃，用户可能能够访问底层桌面，因此我想检查“process2”是否正在运行，以及“process2”是否未在 $display 上运行，我只想执行注销（这将注销 perl 脚本当前运行的显示）。

由于系统同时向 10 个不同的用户运行 10 个“process2”实例，因此我不能仅使用“ps”或类似的东西检查“process2”是否正在系统上运行。我需要检查“process2”是否正在该特定显示器 $display 下运行。 请注意，所有 10 个用户在所有会话中都以相同的用户名登录，因此我无法检查特定用户运行的所有进程，这也会返回所有 10 个实例。

就像：

system("process2 &");
while(1) {
  sleep(1);
  if (is_it_running("process2", $display) == false) {
    system("logout &");
  }
}

我需要知道它的功能“is_it_running”应该是什么样子。 $display 可以包含原始显示编号，例如：“:1.0”，也可以包含解析出来的显示编号，例如：“1”。

Answer 1

如果您使用 fork 和 exec 而不是 system("...&")，您可以存储子进程的进程ID并更直接地检查它们的状态。另请参阅 perlipc。

Answer 2

为什么不在前台运行 process2 呢？然后你的 Perl 脚本在执行完成之前不会重新获得控制权，此时它可以退出：

system("process2");
system("logout");

当然，如果这是整个脚本，也许 bash 脚本会更有意义。

Answer 3

经过多次尝试我解决了。

打开管道

$pidofcall = open(HANDLE, "process2|");

然后我做了我需要做的任何事情，并且我让服务器在与 process2 失去连接时向我发送信号。如果我确实需要退出，我只需执行“gotokillprocess;”即可。然后我只是：

killprocess:
kill(9,$pidofcall);
close(HANDLE);
$mw->destroy;
system("logout");