Language/OS - Multiplatform Resource Library

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 / op / read.t < prev next >

MacBinary | 1992-09-27 | 1.1 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

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

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	E-Tracker Chiptune `(music/eTracker)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	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 Sep 27 18:29:15 1992, modified Sun Sep 27 18:29:15 1992, creator 'MPS ', type ASCII, 446 bytes "read.t"	default (weak)
`99%`	file	a ./perl script executable (binary data), at 0x23e 428 bytes resource	default (weak)
`98%`	file	a ./perl script executable (binary data)	default (weak)
`97%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 72 65 61 64 2e 74 | 00 00 00 00 00 00 00 00 |..read.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 be 00 | 00 01 ac a6 eb e6 3b a6 |........|......;.|
|00000060| eb e6 3b 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 3b e2 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 72 65 61 | 64 2e 74 2c 76 20 34 2e |der: rea|d.t,v 4.|
|000000a0| 30 20 39 31 2f 30 33 2f | 32 30 20 30 31 3a 35 34 |0 91/03/|20 01:54|
|000000b0| 3a 31 36 20 6c 77 61 6c | 6c 20 4c 6f 63 6b 65 64 |:16 lwal|l Locked|
|000000c0| 20 24 0d 0d 70 72 69 6e | 74 20 22 31 2e 2e 34 5c | $..prin|t "1..4\|
|000000d0| 6e 22 3b 0d 0d 0d 6f 70 | 65 6e 28 46 4f 4f 2c 27 |n";...op|en(FOO,'|
|000000e0| 3a 6f 70 3a 72 65 61 64 | 2e 74 27 29 20 7c 7c 20 |:op:read|.t') || |
|000000f0| 6f 70 65 6e 28 46 4f 4f | 2c 27 3a 74 3a 6f 70 3a |open(FOO|,':t:op:|
|00000100| 72 65 61 64 2e 74 27 29 | 20 7c 7c 20 64 69 65 20 |read.t')| || die |
|00000110| 22 43 61 6e 27 74 20 6f | 70 65 6e 20 6f 70 2e 72 |"Can't o|pen op.r|
|00000120| 65 61 64 22 3b 0d 73 65 | 65 6b 28 46 4f 4f 2c 34 |ead";.se|ek(FOO,4|
|00000130| 2c 30 29 3b 0d 24 67 6f | 74 20 3d 20 72 65 61 64 |,0);.$go|t = read|
|00000140| 28 46 4f 4f 2c 24 62 75 | 66 2c 34 29 3b 0d 0d 70 |(FOO,$bu|f,4);..p|
|00000150| 72 69 6e 74 20 28 24 67 | 6f 74 20 3d 3d 20 34 20 |rint ($g|ot == 4 |
|00000160| 3f 20 22 6f 6b 20 31 5c | 6e 22 20 3a 20 22 6e 6f |? "ok 1\|n" : "no|
|00000170| 74 20 6f 6b 20 31 5c 6e | 22 29 3b 0d 70 72 69 6e |t ok 1\n|");.prin|
|00000180| 74 20 28 24 62 75 66 20 | 65 71 20 22 70 65 72 6c |t ($buf |eq "perl|
|00000190| 22 20 3f 20 22 6f 6b 20 | 32 5c 6e 22 20 3a 20 22 |" ? "ok |2\n" : "|
|000001a0| 6e 6f 74 20 6f 6b 20 32 | 20 3a 24 62 75 66 3a 5c |not ok 2| :$buf:\|
|000001b0| 6e 22 29 3b 0d 0d 73 65 | 65 6b 28 46 4f 4f 2c 32 |n");..se|ek(FOO,2|
|000001c0| 30 30 30 30 2c 30 29 3b | 0d 24 67 6f 74 20 3d 20 |0000,0);|.$got = |
|000001d0| 72 65 61 64 28 46 4f 4f | 2c 24 62 75 66 2c 34 29 |read(FOO|,$buf,4)|
|000001e0| 3b 0d 0d 70 72 69 6e 74 | 20 28 24 67 6f 74 20 3d |;..print| ($got =|
|000001f0| 3d 20 30 20 3f 20 22 6f | 6b 20 33 5c 6e 22 20 3a |= 0 ? "o|k 3\n" :|
|00000200| 20 22 6e 6f 74 20 6f 6b | 20 33 5c 6e 22 29 3b 0d | "not ok| 3\n");.|
|00000210| 70 72 69 6e 74 20 28 24 | 62 75 66 20 65 71 20 22 |print ($|buf eq "|
|00000220| 22 20 3f 20 22 6f 6b 20 | 34 5c 6e 22 20 3a 20 22 |" ? "ok |4\n" : "|
|00000230| 6e 6f 74 20 6f 6b 20 34 | 5c 6e 22 29 3b 0d 00 00 |not ok 4|\n");...|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000290| 63 7d 50 65 72 6c 2e 72 | 20 2d 6f 20 50 65 72 6c |c}Perl.r| -o Perl|
|000002a0| 0d 0d 4d 61 63 50 65 72 | 6c 09 09 c4 c4 09 7b 50 |..MacPer|l.....{P|
|000002b0| 06 72 65 61 64 2e 74 da | 02 00 00 00 54 45 58 54 |.read.t.|....TEXT|
|000002c0| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 75 94 |MPS ....|......u.|
|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 3d 00 00 | 01 be 00 00 01 ac 2d 6d |.....=..|......-m|
|00000300| 6f 64 65 6c 20 66 61 72 | 20 2d 63 20 4d 63 50 4c |odel far| -c McPL|
|00000310| 20 2d 74 20 41 50 50 4c | 20 7b 4c 4f 70 74 69 6f | -t APPL| {LOptio|
|00000320| 6e 73 7d 20 09 b6 0d 09 | 09 7b 50 65 72 6c 4f 62 |ns} ....|.{PerlOb|
|00000330| 6a 7d 70 65 72 6c 79 2e | 63 2e 6f 20 09 09 09 09 |j}perly.|c.o ....|
|00000340| 09 b6 0d 09 09 7b 4f 62 | 6a 65 63 74 46 69 6c 65 |.....{Ob|jectFile|
|00000350| 73 7d 20 09 09 09 09 09 | 09 09 b6 0d 09 09 7b 50 |s} .....|......{P|
|00000360| 65 72 6c 4f 62 6a 7d 6d | 61 63 70 65 72 6c 2e 63 |erlObj}m|acperl.c|
|00000370| 2e 6f 09 09 09 09 09 b6 | 0d 09 09 7b 50 65 72 6c |.o......|...{Perl|
|00000380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 77 61 6c |...H..Mo|naco.wal|
|00000390| 6c 20 4c 6f 63 6b 65 64 | 20 24 0d 0d 70 72 69 6e |l Locked| $..prin|
|000003a0| 74 20 22 31 2e 2e 00 06 | 00 03 00 64 00 1c 01 dd |t "1....|...d....|
|000003b0| 02 3d 00 64 00 1c 01 dd | 02 3d a6 eb ad fb 00 00 |.=.d....|.=......|
|000003c0| 00 61 00 00 00 61 00 00 | 00 00 01 00 00 00 00 1e |.a...a..|........|
|000003d0| 00 64 00 1c 01 dd 02 3d | 00 64 00 1c 01 dd 02 3d |.d.....=|.d.....=|
|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 41 |.....n..|.n...>.A|
|00000400| 62 20 10 e6 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |b ......|.>..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 47 95 54 00 00 00 00 |.......L|.G.T....|
|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 |........|........|
+--------+-------------------------+-------------------------+--------+--------+