10

我是 Perl 新手，遇到一个非常简单的问题，但在查阅我的 Perl 书籍时找不到答案。

打印结果时

Dumper($request);

我得到以下结果：

$VAR1 = bless( {
             '_protocol' => 'HTTP/1.1',
             '_content' => '',
             '_uri' => bless( do{\(my $o = 'http://myawesomeserver.org:8081/counter/')}, 'URI::http' ),
             '_headers' => bless( {
                                    'user-agent' => 'Mozilla/5.0 (X11; U; Linux i686; en; rv:1.9.0.4) Gecko/20080528 Epiphany/2.22 Firefox/3.0',
                                    'connection' => 'keep-alive',
                                    'cache-control' => 'max-age=0',
                                    'keep-alive' => '300',
                                    'accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
                                    'accept-language' => 'en-us,en;q=0.5',
                                    'accept-encoding' => 'gzip,deflate',
                                    'host' => 'localhost:8081',
                                    'accept-charset' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7'
                                  }, 'HTTP::Headers' ),
             '_method' => 'GET',
             '_handle' => bless( \*Symbol::GEN0, 'FileHandle' )
           }, 'HTTP::Server::Simple::Dispatched::Request' );

如何访问“_method”（“GET”）或“主机”（“localhost:8081”）的值。

我知道这是一个简单的问题，但 Perl 一开始有点神秘。

4

1 回答 1

13

就蛮力方法而言，Narthring 是正确的。嵌套哈希是通过像这样链接键来解决的：

$hash{top_key}{next_key}{another_key}; # for %hash
# OR
$hash_ref->{top_key}{next_key}{another_key}; # for refs.

然而，由于这两个“哈希”都是受祝福的对象。它可能有助于阅读HTTP::Server::Simple::Dispatched::Request，它可以告诉您它是一个HTTP::Request对象，并查看and方法的HTTP::Request部分，告诉您以下内容可以解决问题：headermethod

my $method = $request->method();
my $host   = $request->header( 'host' );

真的，我建议您获取名为 Perldoc Module::Name 的 firefox 搜索插件，当您遇到 Dumper 输出显示“bless ... 'Some::Module::Name'”时，您可以将其复制并粘贴到搜索插件中并阅读 CPAN 上的文档。

于 2010-05-01T07:53:06.940 回答