print all current variables

[simon]

i'm looking for a snippet of perl code that will print all currently
defined perl variables (not just cgi and/or environment) and their
current value. it is ok (but not necessary) for array variables with
null values are not displayed. using debug mode is not an option.

foreach $key (sort keys(%ENV)) {print "\n$key = $ENV{$key}";}

lists the environment variables, but i want to see all defined
variables.

 

[A. Sinan Unur]

i'm looking for a snippet of perl code that will print all currently
defined perl variables (not just cgi and/or environment) and their
current value. it is ok (but not necessary) for array variables with
null values are not displayed. using debug mode is not an option.

See

http://search.cpan.org/~andk/Devel-Symdump-2.03/lib/Devel/Symdump.pm

By the way, why do you need this?

Sinan

 

[Tad McClellan]

i want to see all defined
variables.

Why do you want to see all of the defined variables?

 

[Bob Walton]

i'm looking for a snippet of perl code that will print all currently
defined perl variables (not just cgi and/or environment) and their
current value. it is ok (but not necessary) for array variables with
null values are not displayed. using debug mode is not an option.

foreach $key (sort keys(%ENV)) {print "\n$key = $ENV{$key}";}

lists the environment variables, but i want to see all defined
variables.

Well, you could print the main symbol table. But that won't show
variables in other packages, or lexical variables.

$q='hi there';
print "$_=$$_\n" for sort keys %main::

That needs fancying up if it is to print the values of arrays and
hashes -- the above prints only scalars. For the proper way to
do it, check "Advanced Perl Programming" pp 95-97.