develooper Front page | perl.perl5.porters | Postings from June 2008

How to dig through symbol tables

Thread Next
June 19, 2008 16:18
How to dig through symbol tables
Message ID:
I'm trying to figure out the "right" way to dig through a
program's symbol table without disrupting it.  According to the
docs, "defined" only works for scalars and subs.  I would think
that "defined *{FOO}{THING}" would work for everything, but it
exhibits this annoying behavior:

    $ perl -le 'sub x{};for (qw(SCALAR ARRAY HASH CODE IO)) { print
"foo-thing $_" if defined *{x}{$_}; }'
    foo-thing SCALAR
    foo-thing CODE

Indeed, if any other slot is defined, *{FOO}{SCALAR} seems to be
defined.  Is this intended behavior?

I am currently using *{FOO}{THING} for everything but scalars,
and (afterwards) "defined $FOO" for scalars, but it seems like
there should be a better way.


Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About