how to loop through an object? 1

[whn]

I understand that a perl object is much like a hash ref, but not the 100% same.

For instance, it is easy to loop through a hash ref:

if(ref($var) eq 'HASH') {
  foreach my $key (keys(%{$var})) {
    print "Key: $key, Val: $var->{$key}\n";
  }
}

But I don't know how to loop through an object like:

my $obj = someModuleName->new();

If I knew the obj '$obj' has some data members, then I know how to reach it:

print "$obj->{dataMember1}\n";

Thanks in advance for your help.

 

[GeekyDeaks]

Hiya,

you can still treat it like a hashref even though it's blessed:

foreach my $key (keys %{$obj}) {
  print $key." => ".$obj->{$key}."\n";
}

The ref() will tell you want kind of object it is. Did you also want to print out the subs?

Cheers,
Scott

 

[whn]

Thank you, Scott!

Somehow, I remembered I did try your way once but did not success. Then I have never tried it again. I guess that I must have made some dumb mistake at my first try.

Thanks again for the solution. And yes, please show me how to print out the subs.

 

[GeekyDeaks]

Well, you can actually just dump the keys of the namespace. i.e:

keys %{'IO::File::'}

and check what is defined as a function '&', but I'd personally just make use of the Class::Inspector module:

http://search.cpan.org/~adamk/Class-Inspector-1.25/lib/Class/Inspector.pm

Scott