From: "Dan Muey" <[EMAIL PROTECTED]>
> > I was curious if there is a way to simply list all of
> perl's built in
> > variables and their values.
>
> You can list all variables in the main package:
> (Beware! Ugly code follows!)
>
> #!perl
> use Data::Dumper;
> $Data::Dumper::Indent = 0;
> $Data::Dumper::Useqq = 1;
> $Data::Dumper::Terse = 1;
> $Data::Dumper::Sortkeys = 1;
> foreach (keys %::) {
> next if /::$/; #I'm not interested in namespaces
> print "\$$_ = ", Dumper(${$::{$_}}), "\n" if defined ${$::{$_}};
> print "[EMAIL PROTECTED] = ", Dumper([EMAIL PROTECTED]::{$_}}), "\n" if
> defined
> @{$::{$_}};
> print "\%$_ = ", Dumper(\%{$::{$_}}), "\n" if defined
> %{$::{$_}}; } __END__
>
>
Good idea!
> %:: or %main:: is that hash containing all variables in the main
> namespace. The elements of the hash are references to TYPEGLOBs (or
> symbol table entries) so you have to "dereference" those.
>
> perldoc perlref
> and
> perldoc perldata
> explain typeglobs.
>
Awesome as usual! Thanks!
> Jenda
>
>
> ===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
> When it comes to wine, women and song, wizards are allowed
> to get drunk and croon as much as they like.
> -- Terry Pratchett in Sourcery
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
