> Is there a way to insert a statement into a perl script that will show
> the values of all of your variables? Other than using a massive
> collection of print statements.
Well maybe there's a module for that. As a hack you may use :
use Data::Dumper;
foreach (keys %main:: ) {
print Data::Dumper->Dump([${$main::{$_}}], [$_])."\n"
if defined ${$main::{$_}};
print Data::Dumper->Dump([\@{$main::{$_}}], ['*'.$_])."\n"
if defined @{$main::{$_}};
print Data::Dumper->Dump([\%{$main::{$_}}], ['*'.$_])."\n"
if defined %{$main::{$_}} and $_ !~ /::$/
};
to print all variables in the main package.
You need to understand TYPEGLOBs to know what the heck am I
doing in that code ;-)
I don't know how to get to the lexical variables (though I'd bet it is
possible).
Jenda
=========== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==========
There is a reason for living. There must be. I've seen it somewhere.
It's just that in the mess on my table ... and in my brain.
I can't find it.
--- me
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
