Howto: Get keys in a hash object? 1

[thenewa2x]

i don't know exactly what they are called but i just want the keys/names for the hash in:
[tt]$obj->{'HASH'}[/tt]

i tried this:

my %hash = $obj->{'HASH'};

foreach my $key (keys %hash)
{
  print $key.' => '.$hash{$key};
}

but that doesn't seem to work.

---------------------------------------
If you helped... thx.

 

[novawolf1]

When you create the object, are you using bless? Or are you just returning a ref to a hash?

------------------------------

The beatings will stop when morale improves!!!!!

 

[thenewa2x]

blessing it

---------------------------------------
If you helped... thx.

 

[novawolf1]

See if this helps.....

my $newVar = TEST->testObj();

foreach my $key (keys % { $newVar } ) {

print "$key\n";

}


package TEST;

sub testObj {

#Setup Basic Class
my $class = shift;
my $self = {};

#Create info in hash
$self->{ONE} = "1";
$self->{TWO} = "2";
$self->{THREE} = "3";

#Return the object
bless($self, $class);
return($self);

}#END sub

------------------------------

The beatings will stop when morale improves!!!!!

 

[thenewa2x]

thx, very nicely done

---------------------------------------
If you helped... thx.

 

[novawolf1]

You are very welcome! Glad I could help.

------------------------------

The beatings will stop when morale improves!!!!!