Question

我已经将Perl用于小型应用程序和测试代码，但我是网络和CGI的新手。

我得到了如何制作请求的标题（使用CGI.pm并打印header（）函数的结果），但是无法找到有关如何访问发送给我的标题的任何信息CGI脚本。有人能指出我正确的方向吗？

这可以来自这样的请求：

curl http://127.0.0.1:80/cgi-bin/headers.cgi -H "HeaderAttribute: value"

Answer 1

CGI模块具有http()功能，您可以将其用于此目的：

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

my $q = CGI->new;
my %headers = map { $_ => $q->http($_) } $q->http();

print $q->header('text/plain');
print "Got the following headers:\n";
for my $header ( keys %headers ) {
    print "$header: $headers{$header}\n";
}

尝试一下;上面给了我：

$ curl http://localhost/test.cgi -H "HeaderAttribute: value"
Got the following headers:
HTTP_HEADERATTRIBUTE: value
HTTP_ACCEPT: */*
HTTP_HOST: localhost
HTTP_USER_AGENT: curl/7.21.0 (i686-pc-linux-gnu) libcurl/7.21.0 OpenSSL/0.9.8o zlib/1.2.3.4 libidn/1.18

Answer 2

除了CGI.pm http()方法，您还可以从环境变量中获取HTTP标头信息。

所以如果您使用的是CGI::Minimal之类的东西，它没有http方法。你可以这样做：

  my $header = 'HTTP_X_REQUESTED_WITH';

  if (exists $ENV{$header} && lc $ENV{$header} eq 'xmlhttprequest') {
   _do_some_ajaxian_stuff();
  }

Answer 3

它们作为环境变量提供，例如

HTTP_HEADERATTRIBUTE=value

但是，您可能需要做一些事情来配置您的Web服务器以提供这样的变量。

如何在CGI脚本中访问HTTP标头请求？

3 个答案: