Hi monks,

While I normally use this to grab Memcached statistics I was fooling around with Cache::Memcached's stats method which returns a hashref of statistical data. Dealing with that appeared do-able enough until I notice that the data returned from stats() looks like this: 
$VAR1 = {
          'hosts' => {
                       '127.0.0.1:11211' => {
                                              'misc' => {
                                                          'bytes' => '
+132677792',
                                                          'curr_connec
+tions' => '1',
                                                          'connection_
+structures' => '3',
                                                          'pointer_siz
+e' => '64',
                                                          'time' => '1
+196796974',
                                                          'total_items
+' => '1900000',
                                                          'cmd_set' =>
+ '1900000',
                                                          'bytes_writt
+en' => '66197744',
                                                          'evictions' 
+=> '0',
                                                          'curr_items'
+ => '1900000',
                                                          'pid' => '18
+968',
                                                          'limit_maxby
+tes' => '318767104',
                                                          'uptime' => 
+'1625',
                                                          'rusage_user
+' => '13.501947',
                                                          'cmd_get' =>
+ '1900000',
                                                          'rusage_syst
+em' => '20.188930',
                                                          'version' =>
+ '1.2.2',
                                                          'get_hits' =
+> '1900000',
                                                          'bytes_read'
+ => '65067000',
                                                          'threads' =>
+ '1',
                                                          'total_conne
+ctions' => '41',
                                                          'get_misses'
+ => '0'
                                                        },
                                              'sizes' => {
                                                           '64' => '99
+9',
                                                           '96' => '18
+99001'
                                                         },
                                              'malloc' => {
                                                            'total_fre
+e' => '6438240',
                                                            'releasabl
+e_space' => '6425520',
                                                            'free_chun
+ks' => '7',
                                                            'fastbin_b
+locks' => '0',
                                                            'arena_siz
+e' => '156471296',
                                                            'total_all
+oc' => '150033056',
                                                            'max_total
+_alloc' => '0',
                                                            'mmapped_r
+egions' => '36',
                                                            'mmapped_s
+pace' => '57696256',
                                                            'fastbin_s
+pace' => '0'
                                                          }
                                            }
                     },
          'self' => {},
          'total' => {
                       'malloc_releasable_space' => 6425520,
                       'bytes' => 132677792,
                       'connection_structures' => 3,
                       'total_items' => 1900000,
                       'malloc_mmapped_regions' => 36,
                       'malloc_free_chunks' => 7,
                       'malloc_total_alloc' => 150033056,
                       'cmd_set' => 1900000,
                       'bytes_written' => 66197744,
                       'malloc_fastbin_blocks' => 0,
                       'curr_items' => 1900000,
                       'malloc_max_total_alloc' => 0,
                       'malloc_arena_size' => 156471296,
                       'malloc_mmapped_space' => 57696256,
                       'cmd_get' => 1900000,
                       'malloc_fastbin_space' => 0,
                       'get_hits' => 1900000,
                       'bytes_read' => 65067000,
                       'total_connections' => 41,
                       'malloc_total_free' => 6438240,
                       'get_misses' => 0
                     }
        };

[download]

Looking at the first key there, this seems to be a Hash of Hashes of Hashes - is there such a thing (perlreftut mentions nested hashes but deducing how to deal with them in that doc isn't immediately clear..)? If so, how would one dereference this?

While wanting to (as an exercise) loop through the keys and return all the data, the best I came up with is 
 my $hashref1 = $memd->stats();
   while ( my ($k,$v) =  each %$hashref1 ) { 
       print $k . ' -->  ' . $v . $/;
       while ( my ($KK,$VV) =  each %$v ) { 
          print $KK . ' -->  ' . $VV . $/; 
       }
   }

[download]
... which at least yeilds some data: 
hosts -> HASH(0x30129a0)
127.0.0.1:11211 -->  HASH(0x1b71da50)
malloc_releasable_space -->  6425520
bytes -->  132677792
connection_structures -->  3
total_items -->  1900000
malloc_mmapped_regions -->  36
malloc_free_chunks -->  7
malloc_total_alloc -->  150033056
cmd_set -->  1900000
bytes_written -->  66210882
malloc_fastbin_blocks -->  0
curr_items -->  1900000
malloc_max_total_alloc -->  0
malloc_arena_size -->  156471296
malloc_mmapped_space -->  57696256
cmd_get -->  1900000
malloc_fastbin_space -->  0
get_hits -->  1900000
bytes_read -->  65067290
total_connections -->  66
malloc_total_free -->  6438240
get_misses -->  0

[download]

but only for one level of hashes ... making me feel much as if (as fenLisesi so eloquently put it) I'm carrying stones from the quarry :)

Obviously the pieces inside the data structure aren't built the same (from key to key) - each key could contain a hash or a further structure ... so,

  • is it possible to step through the hashref and return the data with some sort of magic/test to see what's there?
  • How can one tell if these keys would be returned in the same order every time from this (or similar) module?
  • Is this type of data structure encountered other times, with other modules?
  • If this is just a one-off occurrence, perhaps it's not even worth bothering with figuring out how to do this.

    Apologies since there are several questions here, many thanks for your insight,
    Harold

    Update: Thanks for pointing me in the right direction here CountZero and pKai

    In reply to Dereferencing a Hash of Hashes of Hashes? by hsinclai

    Title:
    Use:  <p> text here (a paragraph) </p>
    and:  <code> code here </code>
    to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.