Jak mogę sprawdzić, czy skrypt Perl wykonuje się w kontekście CGI?

Question

Mam skrypt Perl, które będą uruchamiane z linii poleceń i jak CGI. Z poziomu skryptu Perla dowiesz się, jak można go uruchomić?

Answer 1

Najlepszym wyborem jest sprawdzenie zmiennej środowiskowej GATEWAY_INTERFACE. Będzie zawierał wersję protokołu CGI używanego przez serwer, prawie zawsze jest to CGI/1.1. HTTP_HOST zmienna wspomniano przez Tony Miller (lub dowolnej zmiennej HTTP_*) ustawiona jest tylko wtedy, gdy klient dostarcza je. Rzadko, ale nie jest niemożliwe, aby klient pominął nagłówek Host, pozostawiając brak ustawienia HTTP_HOST.

#!/usr/bin/perl 
use strict; 
use warnings; 

use constant IS_CGI => exists $ENV{'GATEWAY_INTERFACE'}; 

Jeśli mam spodziewa się uruchomić pod mod_perla w pewnym momencie będę również sprawdzić zmienną środowiskową z MOD_PERL również, ponieważ zostanie on ustawiony, gdy skrypt jest najpierw kompilowany.

#!/usr/bin/perl 
use strict; 
use warnings; 

use constant IS_MOD_PERL => exists $ENV{'MOD_PERL'}; 
use constant IS_CGI  => IS_MOD_PERL || exists $ENV{'GATEWAY_INTERFACE'}; 

Answer 2

Jednym z możliwych sposobów jest sprawdzenie zmiennych środowiskowych, które są określone przez serwery WWW.

#!/usr/bin/perl 

use strict; 
use warnings; 

our $IS_CGI = exists $ENV{'HTTP_HOST'}; 

Answer 3

Sprawdź, czy program jest podłączony do TTY lub nie:

my $where = -t() ? 'command line' : 'web server'; 

Answer 4

Można by najlepiej sprawdzić GI w CGI.

use CGI qw(header); 

my $is_cgi = defined $ENV{'GATEWAY_INTERFACE'}; 

print header("text/plain") if $is_cgi; 
print "O HAI, ", $is_cgi ? "CGI\n" : "COMMAND LINE\n"; 

Answer 5

Można pominąć cytaty:

moja $ is_cgi = zdefiniowany $ ENV {GATEWAY_INTERFACE};