Paul Lalli wrote:
I would have written the program like this:
my $itemp = 1;
foreach my $device_hash_ref (@devices_array_oH) {
print " Details of device $itemp: ";
print "\n\n";
foreach my $key (keys %{$device_hash_ref})
{
print (" $key \t $device_hash{$key} \n");
print (" $key \t $device_hash_ref->{$key} \n");
}
$itemp++;
}
--
Just my 0.00000002 million dollars worth,
Shawn
"For the things we have to learn before we can do them, we learn by doing them."
Aristotle
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/