Debian 13下Perl判断lighttpd运行状态异常原因排查

问题场景 #

从Debian12迁移到Debian13后，Perl v5.40.1环境里这段检测lighttpd状态的代码出了问题：

my $IS_NGINX=(`pgrep lighttpd` ? 0:1);

原本逻辑是：lighttpd运行时返回0，否则返回1（表示用NGINX）。在Debian11/12完全正常，但Debian13里哪怕lighttpd明明在跑，返回值还是1，而且全程没任何警告（已经开了use strict）。

后来换成这段代码就正常了：

my $IS_NGINX =(`systemctl status lighttpd > /dev/null; echo $?`);

if ( $IS_NGINX == 0){
     $IS_NGINX = 0;
}
else {
    $IS_NGINX = 1;
}

排查过程与核心原因 #

一开始以为是Perl三元运算符或者版本的锅——毕竟只要用三元运算符就出问题，换systemctl status也一样。但折腾了几天才找到真正原因：Debian13给Web服务的systemd配置加了ProtectProc=invisible设置。

原代码为啥失效？ #

原代码的逻辑是靠pgrep的输出是否非空来判断：

• 在Debian11/12里，pgrep lighttpd能输出进程PID，结果非空，Perl布尔上下文里判定为真，三元运算符返回0，符合预期。
• 但Debian13的ProtectProc=invisible会限制进程可见性：普通用户执行pgrep时，根本看不到被这个配置保护的lighttpd进程，pgrep没任何输出（返回空字符串）。Perl里空字符串在布尔上下文是假，所以三元运算符返回1，逻辑直接反了。

为啥一开始觉得是三元运算符的问题？ #

其实跟三元运算符半毛钱关系都没有。只是当pgrep无输出时，反引号返回空字符串，布尔判定为假；而替换后的代码是拿$?（命令退出状态码）来判断——哪怕systemctl status受ProtectProc影响看不到进程细节，它的退出码还是能正确反映服务是否在运行（运行中退出码0，否则非0），所以逻辑就正常了。

结论 #

这不是Perl的bug，也不是三元运算符的问题，纯粹是Debian13的systemd安全配置变更导致的。原代码依赖进程可见性的输出做判断，新配置让普通用户看不到目标进程，直接触发逻辑错误；替换后的代码用退出码判断，不受进程可见性限制，所以能正常工作。

内容的提问来源于stack exchange，提问作者Namal