gpt4 book ai didi

perl open() 总是返回 sh 的 PID 而不是底层程序

转载 作者:行者123 更新时间:2023-11-30 23:53:47 25 4
gpt4 key购买 nike

我必须终止通过

打开的程序

$pid = open(FH, "program|")

$pid = or open(FH, "-|", "program")

但是,该程序(具体来说是 mosquittto_sub)仍然在后台徘徊,因为 open 正在返回 perl 用来运行的 sh 的 PID程序,所以我只杀死 sh 包装器而不是实际程序。

有没有办法让程序获得真正的 PID?获取 sh 的 PID 有什么意义?

最佳答案

有几种方法可以解决这个问题。

首先,您可以使用列表形式open一个进程,然后不涉及shell,因此子进程(由open返回的pid) 正是你需要停止的那个程序

my @cmd = ('progname', '-arg1', ...);

my $pid = open my $fh, '-|', @cmd // die "Can't open \"@cmd\": $!";

...

my $num_signaled = kill 15, $pid;

此草图需要添加一些检查。请参阅链接文档(查找“管道”)。

如果由于某种原因这不适合 - 也许您需要 shell 来运行该程序 - 那么您可以找到程序的 pidProc::ProcessTable 模块对此有好处。一个基本的演示

use Proc::ProcessTable;

my $prog_name = ...

my $pid;
my $pt = Proc::ProcessTable->new();

foreach my $proc (@{$pt->table}) {
if ($proc->cmndline =~ /\Q$prog_name/) { # is this enough to identify it?
$pid = $proc->pid;
last;
}
}
my $num_signaled = kill 15, $pid;

请注意通过名称来识别程序——在现代系统上,可能有各种正在运行的进程包含您要终止的程序的名称。有关更多详细信息和讨论,请参阅 this postthis post ,供初学者引用。

最后,您可以使用一个模块来运行您的外部程序,然后您就可以更好地管理和控制它们。这里我推荐 IPC::Run

关于perl open() 总是返回 sh 的 PID 而不是底层程序,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/60272757/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com