Comment mon programme Perl peut-il savoir s'il s'exécute sous mod_perl ?

Question

Comment mon programme Perl peut-il savoir s'il s'exécute sous mod_perl ?

Je pense aux variables globales ou aux variables d'environnement.

Je ne me soucie que de mod_perl >= 2.

Answer 1

http://perl.apache.org/docs/2.0/user/coding/coding.html#Environment_Variables dit qu'il y aura une variable d'environnement MOD_PERL, vous pouvez donc tester cela en utilisant l'expression

exists $ENV{MOD_PERL}

Answer 2

Selon "Variables d'environnement" dans le guide de l'utilisateur mod_perl:

$ENV{MOD_PERL} - est défini sur la version mod_perl sous laquelle le serveur est exécuté.par exemple.:

  mod_perl/2.000002

Si $ENV{MOD_PERL} n'existe pas, vous n'utilisez probablement pas mod_perl.

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

(voir le lien ci-dessus pour plus d'informations).