scripts/oreilly_dumpvar.pl

   1 package DUMPVAR;
   2
   3 sub dumpvar {
   4     ($packageName) = @_;
   5     $rPackage =
   6       \%{"${packageName}::"
   7       };    # Get a reference to the appropriate symbol table hash.
   8     $, = " ";
   9     while ( ( $varName, $globValue ) = each %$rPackage ) {
  10         print "$varName ============================= \n";
  11         *var = $globValue;
  12         if ( defined($var) ) {
  13             print "\t \$$varName $var \n";
  14         }
  15         if ( defined(@var) ) {
  16             print "\t \@$varName @var \n";
  17         }
  18         if ( defined(%var) ) {
  19             print "\t \%$varName ", %var, " \n";
  20         }
  21     }
  22 }
  23
  24 package Test;
  25 $x = 10;
  26 @y = ( 1, 3, 4 );
  27 %z = ( 1, 2, 3, 4, 5, 6, \@y );
  28 $z = 300;
  29 DUMPVAR::dumpvar("Test");
  30
  31 # vim:ts=4:sw=4:expandtab:tw=80