home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / perl / perl30 / dumpvar.pl < prev    next >
Perl Script  |  1990-05-09  |  612b  |  31 lines
  1. package dumpvar;
  2.  
  3. sub main'dumpvar {
  4.     ($package) = @_;
  5.     local(*stab) = eval("*_$package");
  6.     while (($key,$val) = each(%stab)) {
  7.     {
  8.         local(*entry) = $val;
  9.         if (defined $entry) {
  10.         print "\$$key = '$entry'\n";
  11.         }
  12.         if (defined @entry) {
  13.         print "\@$key = (\n";
  14.         foreach $num ($[ .. $#entry) {
  15.             print "  $num\t'",$entry[$num],"'\n";
  16.         }
  17.         print ")\n";
  18.         }
  19.         if ($key ne "_$package" && defined %entry) {
  20.         print "\%$key = (\n";
  21.         foreach $key (sort keys(%entry)) {
  22.             print "  $key\t'",$entry{$key},"'\n";
  23.         }
  24.         print ")\n";
  25.         }
  26.     }
  27.     }
  28. }
  29.  
  30. 1;
  31.