Reference to an array from within a hash....how to de-ref.

[Hamish Whittal]

Hi People,

Anyone can help me out. I have a datastructure that looks like this:
$hostsref = {
          '10.15.110.1' => [
                               '10_15_110_1',
                               'public',
                               '.1.3.6.1.4.1.9.1.209',
                               '24',
                               'Y'
                             ],
          '10.15.110.3' => [
                                'wsbextrt1',
                                'public',
                                '.1.3.6.1.4.1.9.1.209',
                                '24',
                                'Y'
                              ],
          '10.113.200.6' => [
                              'wsbintrt2',
                              'public',
                              '.1.3.6.1.4.1.9.1.209',
                              '1',
                              'Y'
                            ],
          '10.113.18.70' => [
                              '10_113_18_70',
                              'public',
                              '.1.3.6.1.4.1.9.1.209',
                              '1',
                              'Y'
                            ],
          '10.41.143.5' => [
                              '10_41_143_5',
                              'public',
                              '.1.3.6.1.4.1.9.1.209',
                              '1',
                              'Y'
                            ]
        };
Now I want to get at the arrays inside the IP address keys....and for
the life of me, I cannot get there. I have tried...

       foreach $key ( keys %$hostsref ) {
               print ("Inserting $key into Database\n");
               @arr = @{ $hostsref{$key} };
               print ("[EMAIL PROTECTED]");
               ($dnsName, $comm, $sysoid, $pollint, $pollYN) = @arr;
               print ("\t$dnsName, $comm, $sysoid, $pollint,$pollYN\n");
       }

Thanks in advance,
Hamish
-- 
Hamish Whittal <[EMAIL PROTECTED]>
QED Technologies cc


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]