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");