Come accedere a un valore di un hash Perl annidato?

Question

Sono nuovo in Perl e ho un problema molto semplice ma non riesco a trovare la risposta quando consulta il mio libro Perl.

Quando si stampa il risultato di

Dumper($request); 

ottengo il seguente risultato:

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

Come posso accedere ai valori di '_method' ('GET') o di 'host' ('localhost: 8081').

So che è una domanda facile, ma Perl è un po 'criptico all'inizio.

Answer 1

Narthring ha ragione per quanto riguarda il metodo forza bruta. hash nidificate sono indirizzate concatenando le chiavi in ​​questo modo:

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

Tuttavia poiché entrambi questi "hash" sono benedetti oggetti. Potrebbe aiutare a leggere su HTTP::Server::Simple::Dispatched::Request, che può dire che si tratta di un oggetto HTTP::Request e guardando HTTP::Request sezione sui metodi header e method, si dice che il seguente fare il trucco:

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

Davvero, vi consiglio prendi il firefox search plugin called Perldoc Module::Name e quando incontri l'uscita Dumper che dice "benedica ..." Some :: Module :: Name "" puoi semplicemente copiarlo e incollarlo nel plugin di ricerca e leggere la documentazione su CPAN.