linux - 如何在 Perl 中检查已安装的 Apache 模块？

Question

我正在编写一个 Perl 脚本来检查并查看当前是否为 Apache 安装了一个模块。在 Bash 中，我会使用:

# httpd -M | grep fcgid
Syntax OK
fcgid_module (shared)

如果该模块存在，我希望它返回 TRUE 值，如果不存在，则返回 FALSE 值。不过我遇到了一个问题，因为 httpd -M 总是输出“Syntax OK”。

这是我到目前为止所得到的:

#!/usr/bin/perl
my $FCGID = "";
if (`httpd -M | grep fcgid`) {
$FCGID = "enabled"
} else {
$FCGID = "disabled"
}

尽管如此，IF 始终评估为 true。

关于我的配置:

x86_64 GNU/Linux
# cat /etc/redhat-release
CentOS release 6.2 (Final)
# httpd -v
Server version: Apache/2.2.15 (Unix)
# perl -v
This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi

接受建议。我是 Perl 的新手，但在 Bash 脚本方面还是有点新。

Answer 1

perl 2>/dev/null -le 'my @list = qx(httpd -D DUMP_MODULES ); print "FCGI found" if ( grep { $_ =~ /fcgi/ } @list )  '