Làm cách nào tôi có thể biết liệu một tập lệnh Perl có đang thực thi trong ngữ cảnh CGI không?

Question

Tôi có một tập lệnh Perl sẽ được chạy từ dòng lệnh và dưới dạng CGI. Từ bên trong kịch bản Perl, làm sao tôi có thể biết nó đang chạy như thế nào?

Answer 1

Lựa chọn tốt nhất là kiểm tra biến môi trường . Nó sẽ chứa phiên bản của giao thức CGI mà máy chủ đang sử dụng, điều này hầu như luôn luôn là CGI/1.1. Biến số HTTP_HOST được đề cập bởi Tony Miller (hoặc bất kỳ biến số HTTP_*) nào chỉ được đặt nếu khách hàng cung cấp. Rất hiếm khi khách hàng không thể bỏ qua tiêu đề Host để lại HTTP_HOST không được đặt.

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

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

Nếu tôi mong đợi để chạy theo mod_perl tại một số điểm tôi cũng sẽ kiểm tra xem biến môi trường MOD_PERL cũng có, vì nó sẽ được thiết lập khi kịch bản được biên dịch đầu tiên.

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

Một cách có thể là kiểm tra các biến môi trường do máy chủ web đặt.

#!/usr/bin/perl 

use strict; 
use warnings; 

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

Answer 3

Xem nếu chương trình của bạn được kết nối với một TTY hay không:

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

Answer 4

Bạn sẽ kiểm tra tốt nhất GI trong 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

Bạn có thể bỏ qua các dấu ngoặc kép:

$ tôi is_cgi = định nghĩa $ ENV {GATEWAY_INTERFACE};