Using strict definately caused me to do a little declaration changing (a lot of my's). However, the print method you suggested doesn't seem to work. This is leading me to believe maybe it isn't getting loaded right.

As you can see, I am printing the the values for the dummyrow variables. The data looks good. It looks like the right syntax for loading into the hash, but nothing is returned (except "hashy is: ") from the print statement.

I'm new to hashes, so please don't talk to cryptic. 


    undef my %db_processes;
    my $pp1;
    my $dbh;
    my $SEV1;
    my $app;
    my $GRP3;
    my $STAT1;
    my $pp0;
    my @dummyrow;
    my $qry;
    my $sth;
    $dbh = DBI->connect("dbi:ODBC:$dsn_name", "$dsn_user", "$dsn_pwd")
        or quittext_opc ("Failed to connect to database $dsn_name\n", 
+$app, $SEV1, $GRP3, "5051", $STAT1);
    
    $qry = "select sid,'|',serial#,'|',status,'|',process,'|',username
+,'|' from v\$session;";
    $sth = $dbh->prepare($qry);
    $sth->execute();
    while ( @dummyrow = $sth->fetchrow_array ) 
    {
        ($pp0,$pp1) = split /:/,$dummyrow[6];
        chomp $pp1;
        print "the pp0 value is: $pp0 and the pp1 value is: $pp1\n";
        print "$dummyrow[0] $dummyrow[2] $dummyrow[4] $dummyrow[6] $du
+mmyrow[8]\n";
        $db_processes{$pp1} = {SID => $dummyrow[0],
                        SERIAL => $dummyrow[2],
                        STATUS => $dummyrow[4],
                        PROCESS    => $dummyrow[6],
                        USERNAME => $dummyrow[8],
                        };
    }

    $dbh->disconnect();

    while (my($key, $hashy) = each %db_processes) 
    {
        print "hashy is: $hashy->{key}\n";
    }

[download]
In the above print of hashy, I have also tried to reference the hash as $hashy->{$key} with the same results. I was thinking you might have had a typo in your reco.

Thanks for your help, Jim

In reply to Re: Re: Hash usage by jblapham
in thread Hash usage by jblapham

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.