PerlスクリプトがCGIコンテキストで実行されているかどうかを確認する方法はありますか？

Question

私はコマンドラインからCGIとして実行されるPerlスクリプトを持っています。 Perlスクリプトの中から、どのように実行されているかをどのように伝えることができますか？

Answer 1

GATEWAY_INTERFACE環境変数を確認することをお勧めします。これは、サーバーが使用しているCGIプロトコルのバージョンを含みます。これは、ほとんどの場合、CGI/1.1です。 Tony Miller（または変数HTTP_*変数）に記載されている変数は、クライアントが提供する場合にのみ設定されます。クライアントがHostヘッダーを省略してHTTP_HOSTのままにすることは稀ですが、不可能ではありません。

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

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

私はスクリプトが最初にコンパイルされたときに、それが設定されますので、私も、またMOD_PERL環境変数をチェックしますいくつかの点でmod_perlの下で実行するように期待していた場合。

#!/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

可能な方法の1つは、Webサーバーによって設定された環境変数を確認することです。

#!/usr/bin/perl 

use strict; 
use warnings; 

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

Answer 3

プログラムがTTYに接続されているかどうかを参照してください：

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

Answer 4

あなたは最高のCGIでGIをチェックします。

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

あなたが引用符をスキップすることができます

私の$ is_cgiを= $ ENV {GATEWAY_INTERFACE}が定義されました。