Làm cách nào để truy cập vào giá trị của một hàm băm Perl lồng nhau?

Question

Tôi mới làm quen với Perl và tôi có một vấn đề rất đơn giản nhưng tôi không thể tìm thấy câu trả lời khi tham khảo cuốn sách Perl của tôi.

Khi in kết quả của

Dumper($request); 

tôi nhận được kết quả sau:

$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'); 

Làm thế nào tôi có thể truy cập các giá trị của '_method' ('GET') hoặc của 'máy chủ' ('localhost: 8081').

Tôi biết đó là một câu hỏi dễ, nhưng Perl hơi khó hiểu ngay từ đầu.

Answer 1

Narthring có quyền theo cách phương thức bạo lực. băm lồng nhau được giải quyết bằng cách kết nối các phím như sau:

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

Tuy nhiên kể từ khi cả hai "băm" là may mắn đối tượng. Nó có thể giúp đọc lên trên HTTP::Server::Simple::Dispatched::Request, mà có thể cho bạn biết rằng đó là một đối tượng HTTP::Request và nhìn vào HTTP::Request phần trên header và method phương pháp, nói với bạn rằng những điều sau đây làm các trick:

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

Thực sự, tôi khuyên bạn nên có được firefox search plugin called Perldoc Module::Name và khi bạn gặp đầu ra Dumper nói "chúc lành ... 'Một số :: Mô-đun :: Tên" "bạn chỉ có thể sao chép và dán vào plugin tìm kiếm và đọc tài liệu về CPAN.