Hi Ronnie,

The first thing I noticed when trying to run your program is the errors: 

Pseudo-hashes are deprecated at ./x line 86.
Pseudo-hashes are deprecated at ./x line 86.
Argument "/opt/bin2" isn't numeric in each at ./x line 86.
Bad index while coercing array into hash at ./x line 86.

[download]

If you modify the program to display the contents of DB_hash just prior to where the error occurs: 

      use Data::Dumper;
      printf "DEBUG:  Dump of DB_hash = (%s)\n", Dumper($DB_hash);
      while (($key, $value) = each %$DB_hash ) {

[download]

you'll see that it's actually an Array of Hashes: 

        xxrctest S T A R T S
DEBUG:  Dump of DB_hash = ($VAR1 = [
          {
            'ADMIN_DIR' => '/opt/bin2'
          }
        ];

[download]

So you need to dereference the first element of the array to get to the hash that it contains.  An easy way to do this would be: 

      my $actual_hash = $DB_hash->[0];
      while (($key, $value) = each %$actual_hash ) {

[download]

In general you should try applying this debugging technique to any program which gives you warnings or errors, as it will usually help you get right to the source of the problem.

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

In reply to Re: Hash Table References? by liverpole
in thread Hash Table References? by Ronnie

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.