我的Perl程序如何判断是否在mod_perl下运行？

Question

How can my Perl program tell if is running under mod_perl?

I'm thinking along the lines of global variables or environment variables.

I am only bothered about mod_perl >= 2.

Answer 1

According to "Environment Variables" in the mod_perl user's guide :

$ENV{MOD_PERL} - is set to the mod_perl version the server is running under. eg:

 mod_perl/2.000002  

If $ENV{MOD_PERL} doesn't exist, most likely you are not running under mod_perl.

 die "I refuse to work without mod_perl!"  unless exists $ENV{MOD_PERL};  

(see the above link for more information).

Answer 2

http://perl.apache.org/docs/2.0/user/coding/coding.html#Environment_Variables说会有一个环境变量MOD_PERL ，所以你可以使用表达式来测试它

exists $ENV{MOD_PERL}