Perl 获取和设置父进程和子进程的优先级值

我有一个perl脚本，它将创建一个子进程。我需要获取这两个进程（父进程和子进程）的优先级（nice）值

我可以得到父进程和子进程的pid，如下所示：

$parentPID = $$;
$childPID = fork();

如何在perl脚本中获取这些进程的优先级值？

使用CPAN模块。例如：

$pid = fork { os_priority => 10 };   # like nice(1) on Un*x

如果您不想使用CPAN模块，函数将设置进程、进程组或用户的当前优先级。

检查PID的第一个参数是

PRIO\u进程的位置（您可以使用导入此常量，也可以使用零）

读取当前PID优先级，并设置新的PID优先级

nice -7 perl -E'say getpriority(0,$$); setpriority(0,$$,9); say getpriority(0,$$)'

输出

7
9

我不能安装任何CPAN模块，只能在标准的perl模块上工作。我喜欢恢复您的旧名称。=）@米勒：嗨，我做过一段时间的俄罗斯战斗机卧底看来美国最近正在作出巨大努力，在欧洲挑起冲突。