/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / lib / dumpvar.pl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 64 75 6d 70 76 61 | 72 2e 70 6c 00 00 00 00 |..dumpva|r.pl....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 00 00 00 | 00 00 00 00 00 00 00 00 |.TEXT...|........|
|00000050| 00 00 00 00 00 03 34 00 | 00 01 ac a5 8c 44 20 a5 |......4.|.....D .|
|00000060| 8c 44 20 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.D .....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8f 21 00 00 |........|.....!..|
|00000080| 70 61 63 6b 61 67 65 20 | 64 75 6d 70 76 61 72 3b |package |dumpvar;|
|00000090| 0d 0d 23 20 74 72 61 6e | 73 6c 61 74 65 20 63 6f |..# tran|slate co|
|000000a0| 6e 74 72 6f 6c 20 63 68 | 61 72 73 20 74 6f 20 5e |ntrol ch|ars to ^|
|000000b0| 58 20 2d 20 52 61 6e 64 | 61 6c 20 53 63 68 77 61 |X - Rand|al Schwa|
|000000c0| 72 74 7a 0d 73 75 62 20 | 75 6e 63 74 72 6c 20 7b |rtz.sub |unctrl {|
|000000d0| 0d 09 6c 6f 63 61 6c 28 | 24 5f 29 20 3d 20 40 5f |..local(|$_) = @_|
|000000e0| 3b 0d 09 73 2f 28 5b 5c | 30 30 31 2d 5c 30 33 37 |;..s/([\|001-\037|
|000000f0| 5c 31 37 37 5d 29 2f 27 | 5e 27 2e 70 61 63 6b 28 |\177])/'|^'.pack(|
|00000100| 27 63 27 2c 6f 72 64 28 | 24 31 29 5e 36 34 29 2f |'c',ord(|$1)^64)/|
|00000110| 65 67 3b 0d 09 24 5f 3b | 0d 7d 0d 73 75 62 20 6d |eg;..$_;|.}.sub m|
|00000120| 61 69 6e 27 64 75 6d 70 | 76 61 72 20 7b 0d 20 20 |ain'dump|var {.  |
|00000130| 20 20 28 24 70 61 63 6b | 61 67 65 2c 40 76 61 72 |  ($pack|age,@var|
|00000140| 73 29 20 3d 20 40 5f 3b | 0d 20 20 20 20 6c 6f 63 |s) = @_;|.    loc|
|00000150| 61 6c 28 2a 73 74 61 62 | 29 20 3d 20 65 76 61 6c |al(*stab|) = eval|
|00000160| 28 22 2a 5f 24 70 61 63 | 6b 61 67 65 22 29 3b 0d |("*_$pac|kage");.|
|00000170| 20 20 20 20 77 68 69 6c | 65 20 28 28 24 6b 65 79 |    whil|e (($key|
|00000180| 2c 24 76 61 6c 29 20 3d | 20 65 61 63 68 28 25 73 |,$val) =| each(%s|
|00000190| 74 61 62 29 29 20 7b 0d | 09 7b 0d 09 20 20 20 20 |tab)) {.|.{..    |
|000001a0| 6e 65 78 74 20 69 66 20 | 40 76 61 72 73 20 26 26 |next if |@vars &&|
|000001b0| 20 21 67 72 65 70 28 24 | 6b 65 79 20 65 71 20 24 | !grep($|key eq $|
|000001c0| 5f 2c 40 76 61 72 73 29 | 3b 0d 09 20 20 20 20 6c |_,@vars)|;..    l|
|000001d0| 6f 63 61 6c 28 2a 65 6e | 74 72 79 29 20 3d 20 24 |ocal(*en|try) = $|
|000001e0| 76 61 6c 3b 0d 09 20 20 | 20 20 69 66 20 28 64 65 |val;..  |  if (de|
|000001f0| 66 69 6e 65 64 20 24 65 | 6e 74 72 79 29 20 7b 0d |fined $e|ntry) {.|
|00000200| 09 09 70 72 69 6e 74 20 | 22 5c 24 24 6b 65 79 20 |..print |"\$$key |
|00000210| 3d 20 27 22 2c 26 75 6e | 63 74 72 6c 28 24 65 6e |= '",&un|ctrl($en|
|00000220| 74 72 79 29 2c 22 27 5c | 6e 22 3b 0d 09 20 20 20 |try),"'\|n";..   |
|00000230| 20 7d 0d 09 20 20 20 20 | 69 66 20 28 64 65 66 69 | }..    |if (defi|
|00000240| 6e 65 64 20 40 65 6e 74 | 72 79 29 20 7b 0d 09 09 |ned @ent|ry) {...|
|00000250| 70 72 69 6e 74 20 22 5c | 40 24 6b 65 79 20 3d 20 |print "\|@$key = |
|00000260| 28 5c 6e 22 3b 0d 09 09 | 66 6f 72 65 61 63 68 20 |(\n";...|foreach |
|00000270| 24 6e 75 6d 20 28 24 5b | 20 2e 2e 20 24 23 65 6e |$num ($[| .. $#en|
|00000280| 74 72 79 29 20 7b 0d 09 | 09 20 20 20 20 70 72 69 |try) {..|.    pri|
|00000290| 6e 74 20 22 20 20 24 6e | 75 6d 5c 74 27 22 2c 26 |nt "  $n|um\t'",&|
|000002a0| 75 6e 63 74 72 6c 28 24 | 65 6e 74 72 79 5b 24 6e |unctrl($|entry[$n|
|000002b0| 75 6d 5d 29 2c 22 27 5c | 6e 22 3b 0d 09 09 7d 0d |um]),"'\|n";...}.|
|000002c0| 09 09 70 72 69 6e 74 20 | 22 29 5c 6e 22 3b 0d 09 |..print |")\n";..|
|000002d0| 20 20 20 20 7d 0d 09 20 | 20 20 20 69 66 20 28 24 |    }.. |   if ($|
|000002e0| 6b 65 79 20 6e 65 20 22 | 5f 24 70 61 63 6b 61 67 |key ne "|_$packag|
|000002f0| 65 22 20 26 26 20 24 6b | 65 79 20 6e 65 20 22 5f |e" && $k|ey ne "_|
|00000300| 44 42 22 20 26 26 20 64 | 65 66 69 6e 65 64 20 25 |DB" && d|efined %|
|00000310| 65 6e 74 72 79 29 20 7b | 0d 09 09 70 72 69 6e 74 |entry) {|...print|
|00000320| 20 22 5c 25 24 6b 65 79 | 20 3d 20 28 5c 6e 22 3b | "\%$key| = (\n";|
|00000330| 0d 09 09 66 6f 72 65 61 | 63 68 20 24 6b 65 79 20 |...forea|ch $key |
|00000340| 28 73 6f 72 74 20 6b 65 | 79 73 28 25 65 6e 74 72 |(sort ke|ys(%entr|
|00000350| 79 29 29 20 7b 0d 09 09 | 20 20 20 20 70 72 69 6e |y)) {...|    prin|
|00000360| 74 20 22 20 20 24 6b 65 | 79 5c 74 27 22 2c 26 75 |t "  $ke|y\t'",&u|
|00000370| 6e 63 74 72 6c 28 24 65 | 6e 74 72 79 7b 24 6b 65 |nctrl($e|ntry{$ke|
|00000380| 79 7d 29 2c 22 27 5c 6e | 22 3b 0d 09 09 7d 0d 09 |y}),"'\n|";...}..|
|00000390| 09 70 72 69 6e 74 20 22 | 29 5c 6e 22 3b 0d 09 20 |.print "|)\n";.. |
|000003a0| 20 20 20 7d 0d 09 7d 0d | 20 20 20 20 7d 0d 7d 0d |   }..}.|    }.}.|
|000003b0| 0d 31 3b 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |.1;.....|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000410| 0d 0d 23 20 74 72 61 6e | 73 6c 61 74 65 20 63 6f |..# tran|slate co|
|00000420| 6e 74 72 6f 6c 20 63 68 | 61 72 73 20 74 6f 20 5e |ntrol ch|ars to ^|
|00000430| 0a 64 75 6d 70 76 61 72 | 2e 70 6c 00 02 00 00 00 |.dumpvar|.pl.....|
|00000440| 54 45 58 54 00 00 00 00 | 00 00 00 00 00 00 00 00 |TEXT....|........|
|00000450| 00 00 54 45 58 54 00 00 | 00 00 00 00 00 00 00 00 |..TEXT..|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 a5 8c 0b e0 00 00 | 03 34 00 00 01 ac 6b 28 |........|.4....k(|
|00000480| 27 63 27 2c 6f 72 64 28 | 24 31 29 5e 36 34 29 2f |'c',ord(|$1)^64)/|
|00000490| 65 67 3b 0d 09 24 5f 3b | 0d 7d 0d 73 75 62 20 6d |eg;..$_;|.}.sub m|
|000004a0| 61 69 6e 27 64 75 6d 70 | 76 61 72 20 7b 0d 20 20 |ain'dump|var {.  |
|000004b0| 20 20 28 24 70 61 63 6b | 61 67 65 2c 40 76 61 72 |  ($pack|age,@var|
|000004c0| 73 29 20 3d 20 40 5f 3b | 0d 20 20 20 20 6c 6f 63 |s) = @_;|.    loc|
|000004d0| 61 6c 28 2a 73 74 61 62 | 29 20 3d 20 65 76 61 6c |al(*stab|) = eval|
|000004e0| 28 22 2a 5f 24 70 61 63 | 6b 61 67 65 22 29 3b 0d |("*_$pac|kage");.|
|000004f0| 20 20 20 20 77 68 69 6c | 65 20 28 28 24 6b 65 79 |    whil|e (($key|
|00000500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 06 | 00 03 00 64 00 5b 01 dd |........|...d.[..|
|00000530| 02 7c 00 64 00 1c 01 dd | 02 3d a5 8c 0b e0 00 00 |.|.d....|.=......|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|00000550| 00 64 00 5b 01 dd 02 7c | 00 64 00 1c 01 dd 02 3d |.d.[...||.d.....=|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2c |.....n..|.n...>.,|
|00000580| 4e 50 0e b2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |NP......|.>..MPSR|
|00000590| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 03 f0 ff ff 00 00 00 4c | 00 32 5b 14 00 00 00 00 |.......L|.2[.....|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+