]> git.donarmstrong.com Git - infobot.git/blob - scripts/oreilly_dumpvar.pl
don't bomb
[infobot.git] / scripts / oreilly_dumpvar.pl
1 package DUMPVAR;
2 sub dumpvar {
3     ($packageName) = @_;
4     $rPackage = \%{"${packageName}::"};  # Get a reference to the appropriate symbol table hash.
5     $, = " "    ;
6     while (($varName, $globValue) = each %$rPackage) {
7         print "$varName ============================= \n";
8         *var = $globValue;
9         if (defined ($var)) {
10             print "\t \$$varName $var \n";
11         }
12         if (defined (@var)) {
13             print "\t \@$varName @var \n";
14         }
15         if (defined (%var)) {
16             print "\t \%$varName ",%var," \n";
17         }
18     }
19 }
20
21
22 package Test;
23 $x = 10;
24 @y = (1,3,4);
25 %z = (1,2,3,4, 5, 6, \@y);
26 $z = 300;
27 DUMPVAR::dumpvar("Test");