Hamish Whittal <[EMAIL PROTECTED]> wrote:
: 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} };
Try: @arr = @{ $hostsref->$key} };
: print ("[EMAIL PROTECTED]");
: ($dnsName, $comm, $sysoid, $pollint, $pollYN) = @arr;
: print ("\t$dnsName, $comm, $sysoid, $pollint, $pollYN\n");
: }
foreach my $key ( keys %$hostsref ) {
print "Inserting $key into Database\n\t";
print join ', ', @{ $hostsref->{$key} };
print "\n";
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
Use strict and warnings:
http://www.perlmonks.com/index.pl?node_id=111088
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]