Depending, of course, on what you ultimately want to do with this, you might want to look at Dumpvalue, which can dump the symbol tables of whole packages, or at another of the modules listed here.
For example,
package private; our $my_scalar = 'my scalar'; our @my_array = qw(my array); our %my_hash = ( my => 'hash' ); package main; use strict; use Devel::Symdump; use Dumpvalue; print "ARRAYS => " . join(q{, }, Devel::Symdump->arrays("private")),"\n"; print "SCALARS => " . join(q{, }, Devel::Symdump->scalars("private")),"\n"; print "HASHES => " . join(q{, }, Devel::Symdump->hashes("private")),"\n"; print "\nDumpvalue:\n"; Dumpvalue->new->dumpvars('private');
yields this output:
ARRAYS => private::my_array SCALARS => private::my_scalar, private::my_array, private::my_hash HASHES => private::my_hash Dumpvalue: @my_array = ( 0 'my' 1 'array' ) $my_scalar = 'my scalar' %my_hash = ( 'my' => 'hash' )
which lends itself to visual inspection.
Update: Added example.
HTH,
In reply to Re: Devel::Symdump and symbol table woes
by planetscape
in thread Devel::Symdump and symbol table woes
by bpphillips
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |