Wie kann mein Perl-Programm erkennen, ob es unter mod_perl läuft?

Question

Wie kann mein Perl-Programm erkennen, ob es unter mod_perl läuft?

Ich denke im Sinne globaler Variablen oder Umgebungsvariablen.

Mich stört nur mod_perl >= 2.

Answer 1

http://perl.apache.org/docs/2.0/user/coding/coding.html#Environment_Variables sagt, dass es eine Umgebungsvariable geben wird MOD_PERL, sodass Sie dies mithilfe des Ausdrucks testen können

exists $ENV{MOD_PERL}

Answer 2

Entsprechend „Umgebungsvariablen“ im mod_perl-Benutzerhandbuch:

$ENV{MOD_PERL} - ist auf die mod_perl-Version eingestellt, unter der der Server läuft.z.B.:

  mod_perl/2.000002

Wenn $ENV{MOD_PERL} nicht existiert, höchstwahrscheinlich laufen Sie nicht unter mod_perl.

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

(Weitere Informationen finden Sie unter dem obigen Link).