3 # translate control chars to ^X - Randal Schwartz
6 s/([\001-\037\177])/'^'.pack('c',ord($1)^64)/eg;
10 ($package,@vars) = @_;
11 local(*stab) = *{"::_$package"};
12 while (($key,$val) = each(%stab)) {
14 next if @vars && !grep($key eq $_,@vars);
17 print "\$$key = '",&unctrl($entry),"'\n";
21 foreach $num ($[ .. $#entry) {
22 print " $num\t'",&unctrl($entry[$num]),"'\n";
26 if ($key ne "_$package" && $key ne "_DB" && defined %entry) {
28 foreach $key (sort keys(%entry)) {
29 print " $key\t'",&unctrl($entry{$key}),"'\n";