home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl402.bin / Perl_src / t / comp / script.t < prev    next >
MacBinary  |  1992-01-06  |  1.1 KB  |  [TEXT/MPS ]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert E-Tracker Chiptune (music/eTracker) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Simis (archive/simis) ext Unsupported
1% dexvert TADS (other/tads) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Jan 5 20:13:16 1992, modified Sun Jan 5 20:13:16 1992, creator 'MPS ', type ASCII, 505 bytes "script.t" default (weak)
99% file a ./perl script executable (binary data), at 0x279 428 bytes resource default (weak)
98% file a ./perl script executable (binary data) default (weak)
97% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 73 63 72 69 70 74 | 2e 74 00 00 00 00 00 00 |..script|.t......|
|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 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 01 f9 00 | 00 01 ac a5 8d 5d ac a5 |........|.....]..|
|00000060| 8d 5d ac 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.]......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d6 c2 00 00 |........|........|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 48 65 61 |#!./perl|..# $Hea|
|00000090| 64 65 72 3a 20 73 63 72 | 69 70 74 2e 74 2c 76 20 |der: scr|ipt.t,v |
|000000a0| 34 2e 30 20 39 31 2f 30 | 33 2f 32 30 20 30 31 3a |4.0 91/0|3/20 01:|
|000000b0| 35 30 3a 32 36 20 6c 77 | 61 6c 6c 20 4c 6f 63 6b |50:26 lw|all Lock|
|000000c0| 65 64 20 24 0d 0d 70 72 | 69 6e 74 20 22 31 2e 2e |ed $..pr|int "1..|
|000000d0| 33 5c 6e 22 3b 0d 0d 24 | 78 20 3d 20 60 70 65 72 |3\n";..$|x = `per|
|000000e0| 6c 20 2d 65 20 27 70 72 | 69 6e 74 20 22 6f 6b 5c |l -e 'pr|int "ok\|
|000000f0| 5c 6e 22 3b 27 60 3b 0d | 0d 69 66 20 28 24 78 20 |\n";'`;.|.if ($x |
|00000100| 65 71 20 22 6f 6b 5c 6e | 22 29 20 7b 70 72 69 6e |eq "ok\n|") {prin|
|00000110| 74 20 22 6f 6b 20 31 5c | 6e 22 3b 7d 20 65 6c 73 |t "ok 1\|n";} els|
|00000120| 65 20 7b 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b |e {print| "not ok|
|00000130| 20 31 5c 6e 22 3b 7d 0d | 0d 6f 70 65 6e 28 74 72 | 1\n";}.|.open(tr|
|00000140| 79 2c 22 3e 43 6f 6d 70 | 2e 73 63 72 69 70 74 22 |y,">Comp|.script"|
|00000150| 29 20 7c 7c 20 28 64 69 | 65 20 22 43 61 6e 27 74 |) || (di|e "Can't|
|00000160| 20 6f 70 65 6e 20 74 65 | 6d 70 20 66 69 6c 65 2e | open te|mp file.|
|00000170| 22 29 3b 0d 70 72 69 6e | 74 20 74 72 79 20 27 70 |");.prin|t try 'p|
|00000180| 72 69 6e 74 20 22 6f 6b | 5c 6e 22 3b 27 3b 20 70 |rint "ok|\n";'; p|
|00000190| 72 69 6e 74 20 74 72 79 | 20 22 5c 6e 22 3b 0d 63 |rint try| "\n";.c|
|000001a0| 6c 6f 73 65 20 74 72 79 | 3b 0d 0d 24 78 20 3d 20 |lose try|;..$x = |
|000001b0| 60 70 65 72 6c 20 43 6f | 6d 70 2e 73 63 72 69 70 |`perl Co|mp.scrip|
|000001c0| 74 60 3b 0d 0d 69 66 20 | 28 24 78 20 65 71 20 22 |t`;..if |($x eq "|
|000001d0| 6f 6b 5c 6e 22 29 20 7b | 70 72 69 6e 74 20 22 6f |ok\n") {|print "o|
|000001e0| 6b 20 32 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 |k 2\n";}| else {p|
|000001f0| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 32 5c 6e |rint "no|t ok 2\n|
|00000200| 22 3b 7d 0d 0d 24 78 20 | 3d 20 60 70 65 72 6c 20 |";}..$x |= `perl |
|00000210| 3c 43 6f 6d 70 2e 73 63 | 72 69 70 74 60 3b 0d 0d |<Comp.sc|ript`;..|
|00000220| 69 66 20 28 24 78 20 65 | 71 20 22 6f 6b 5c 6e 22 |if ($x e|q "ok\n"|
|00000230| 29 20 7b 70 72 69 6e 74 | 20 22 6f 6b 20 33 5c 6e |) {print| "ok 3\n|
|00000240| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|00000250| 22 6e 6f 74 20 6f 6b 20 | 33 5c 6e 22 3b 7d 0d 0d |"not ok |3\n";}..|
|00000260| 60 64 65 6c 65 74 65 20 | 2d 79 20 43 6f 6d 70 2e |`delete |-y Comp.|
|00000270| 73 63 72 69 70 74 60 3b | 0d 00 00 00 00 00 00 00 |script`;|........|
|00000280| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000290| 00 00 07 be 0b 75 74 69 | 6c 2e 68 2e 6f 72 69 67 |.....uti|l.h.orig|
|000002a0| 02 00 00 00 54 45 58 54 | 4d 50 53 20 01 00 02 a4 |....TEXT|MPS ....|
|000002b0| 08 73 63 72 69 70 74 2e | 74 00 02 00 00 00 54 45 |.script.|t.....TE|
|000002c0| 58 54 4d 50 53 20 00 00 | 00 00 00 00 00 00 00 00 |XTMPS ..|........|
|000002d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 a5 8c 0c 15 00 00 | 01 f9 00 00 01 ac 00 00 |........|........|
|00000300| 00 00 00 00 00 00 07 be | 0b 75 74 69 6c 2e 68 2e |........|.util.h.|
|00000310| 6f 72 69 67 02 00 00 00 | 54 45 58 54 4d 50 53 20 |orig....|TEXTMPS |
|00000320| 01 00 02 a4 00 c0 00 00 | 00 00 00 96 00 00 00 00 |........|........|
|00000330| 03 52 00 00 08 00 00 00 | 00 00 01 a0 00 00 08 00 |.R......|........|
|00000340| a4 40 a7 9b a5 8b f7 91 | 00 00 00 00 00 00 00 00 |.@......|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 37 50 |........|......7P|
|00000360| 00 01 00 00 00 00 00 00 | 00 00 3f 93 00 01 00 00 |........|..?.....|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 07 be 06 75 |........|.......u|
|00000380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 20 6c 77 |...H..Mo|naco. lw|
|00000390| 61 6c 6c 20 4c 6f 63 6b | 65 64 20 24 0d 0d 70 72 |all Lock|ed $..pr|
|000003a0| 69 6e 74 20 22 31 00 06 | 00 03 00 50 00 20 01 dd |int "1..|...P. ..|
|000003b0| 02 3d 00 50 00 20 01 dd | 02 3d a5 8d 25 6c 00 00 |.=.P. ..|.=..%l..|
|000003c0| 01 9f 00 00 01 9f 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000003d0| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2b |.....n..|.n...>.+|
|00000400| a4 ec 0a 4a 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |...J....|.>..MPSR|
|00000410| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 03 f0 ff ff 00 00 00 4c | 00 31 b0 c8 00 00 00 00 |.......L|.1......|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+