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

MacBinary | 1992-09-27 | 1.3 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:25:54 1992, modified Sun Sep 27 18:25:54 1992, creator 'MPS ', type ASCII, 561 bytes "flip.t"	default (weak)
`99%`	file	a ./perl script executable (binary data), at 0x2b1 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 66 6c 69 70 2e 74 | 00 00 00 00 00 00 00 00 |..flip.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 02 31 00 | 00 01 ac a6 eb e5 72 a6 |......1.|......r.|
|00000060| eb e5 72 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..r.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d6 a5 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 66 6c 69 | 70 2e 74 2c 76 20 34 2e |der: fli|p.t,v 4.|
|000000a0| 30 20 39 31 2f 30 33 2f | 32 30 20 30 31 3a 35 32 |0 91/03/|20 01:52|
|000000b0| 3a 33 36 20 6c 77 61 6c | 6c 20 4c 6f 63 6b 65 64 |:36 lwal|l Locked|
|000000c0| 20 24 0d 0d 70 72 69 6e | 74 20 22 31 2e 2e 38 5c | $..prin|t "1..8\|
|000000d0| 6e 22 3b 0d 0d 40 61 20 | 3d 20 28 31 2c 32 2c 33 |n";..@a |= (1,2,3|
|000000e0| 2c 34 2c 35 2c 36 2c 37 | 2c 38 2c 39 2c 31 30 2c |,4,5,6,7|,8,9,10,|
|000000f0| 31 31 2c 31 32 29 3b 0d | 0d 77 68 69 6c 65 20 28 |11,12);.|.while (|
|00000100| 24 5f 20 3d 20 73 68 69 | 66 74 28 61 29 29 20 7b |$_ = shi|ft(a)) {|
|00000110| 0d 20 20 20 20 69 66 20 | 28 24 78 20 3d 20 2f 34 |.    if |($x = /4|
|00000120| 2f 2e 2e 2f 38 2f 29 20 | 7b 20 24 7a 20 3d 20 24 |/../8/) |{ $z = $|
|00000130| 78 3b 20 70 72 69 6e 74 | 20 22 6f 6b 20 22 2c 20 |x; print| "ok ", |
|00000140| 24 78 20 2b 20 30 2c 20 | 22 5c 6e 22 3b 20 7d 0d |$x + 0, |"\n"; }.|
|00000150| 20 20 20 20 24 79 20 2e | 3d 20 2f 31 2f 2e 2e 2f |    $y .|= /1/../|
|00000160| 32 2f 3b 0d 7d 0d 0d 69 | 66 20 28 24 7a 20 65 71 |2/;.}..i|f ($z eq|
|00000170| 20 27 35 45 30 27 29 20 | 7b 70 72 69 6e 74 20 22 | '5E0') |{print "|
|00000180| 6f 6b 20 36 5c 6e 22 3b | 7d 20 65 6c 73 65 20 7b |ok 6\n";|} else {|
|00000190| 70 72 69 6e 74 20 22 6e | 6f 74 20 6f 6b 20 36 5c |print "n|ot ok 6\|
|000001a0| 6e 22 3b 7d 0d 0d 69 66 | 20 28 24 79 20 65 71 20 |n";}..if| ($y eq |
|000001b0| 27 31 32 45 30 31 32 33 | 45 30 27 29 20 7b 70 72 |'12E0123|E0') {pr|
|000001c0| 69 6e 74 20 22 6f 6b 20 | 37 5c 6e 22 3b 7d 20 65 |int "ok |7\n";} e|
|000001d0| 6c 73 65 20 7b 70 72 69 | 6e 74 20 22 6e 6f 74 20 |lse {pri|nt "not |
|000001e0| 6f 6b 20 37 5c 6e 22 3b | 7d 0d 0d 40 61 20 3d 20 |ok 7\n";|}..@a = |
|000001f0| 28 27 61 27 2c 27 62 27 | 2c 27 63 27 2c 27 64 27 |('a','b'|,'c','d'|
|00000200| 2c 27 65 27 2c 27 66 27 | 2c 27 67 27 29 3b 0d 0d |,'e','f'|,'g');..|
|00000210| 6f 70 65 6e 28 6f 66 2c | 27 3a 3a 4d 61 6b 65 66 |open(of,|'::Makef|
|00000220| 69 6c 65 27 29 3b 0d 77 | 68 69 6c 65 20 28 3c 6f |ile');.w|hile (<o|
|00000230| 66 3e 29 20 7b 0d 20 20 | 20 20 28 33 20 2e 2e 20 |f>) {.  |  (3 .. |
|00000240| 35 29 20 26 26 20 24 66 | 6f 6f 20 2e 3d 20 24 5f |5) && $f|oo .= $_|
|00000250| 3b 0d 7d 0d 24 78 20 3d | 20 28 24 66 6f 6f 20 3d |;.}.$x =| ($foo =|
|00000260| 7e 20 79 2f 5c 6e 2f 5c | 6e 2f 29 3b 0d 0d 69 66 |~ y/\n/\|n/);..if|
|00000270| 20 28 24 78 20 65 71 20 | 33 29 20 7b 70 72 69 6e | ($x eq |3) {prin|
|00000280| 74 20 22 6f 6b 20 38 5c | 6e 22 3b 7d 20 65 6c 73 |t "ok 8\|n";} els|
|00000290| 65 20 7b 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b |e {print| "not ok|
|000002a0| 20 38 20 24 78 3a 24 66 | 6f 6f 3a 5c 6e 22 3b 7d | 8 $x:$f|oo:\n";}|
|000002b0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000310| 00 00 00 02 0d 53 79 73 | 74 65 6d 20 46 6f 6c 64 |.....Sys|tem Fold|
|00000320| 65 72 01 00 00 00 00 72 | 00 00 00 4c 9c fd 87 eb |er.....r|...L....|
|00000330| 06 66 6c 69 70 2e 74 da | 02 00 00 00 54 45 58 54 |.flip.t.|....TEXT|
|00000340| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 75 82 |MPS ....|......u.|
|00000350| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 a5 8c 0c 2c 00 00 | 02 31 00 00 01 ac a5 50 |.....,..|.1.....P|
|00000380| 7e 80 a5 7a 98 c5 00 00 | 00 00 00 7a 00 2c 01 36 |~..z....|...z.,.6|
|00000390| 01 c0 11 00 00 40 00 00 | 01 00 ff f8 ff f0 00 00 |.....@..|........|
|000003a0| 00 00 00 60 00 00 00 00 | 00 00 00 00 00 00 00 00 |...`....|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 10 2f | 00 01 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 0b 00 00 00 00 02 | 05 54 72 61 73 68 01 00 |........|.Trash..|
|000003f0| 00 00 00 00 00 01 47 54 | a5 50 7e 80 a5 7a 3a 29 |......GT|.P~..z:)|
|00000400| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 77 61 6c |...H..Mo|naco.wal|
|00000410| 6c 20 4c 6f 63 6b 65 64 | 20 24 0d 0d 70 72 69 6e |l Locked| $..prin|
|00000420| 74 20 22 31 2e 2e 00 06 | 00 03 00 50 00 20 01 dd |t "1....|...P. ..|
|00000430| 02 3d 00 50 00 20 01 dd | 02 3d a6 eb ad 32 00 00 |.=.P. ..|.=...2..|
|00000440| 01 9b 00 00 01 9b 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|00000450| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 41 |.....n..|.n...>.A|
|00000480| 62 20 11 44 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |b .D....|.>..MPSR|
|00000490| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 03 f0 ff ff 00 00 00 4c | 00 47 94 18 00 00 00 00 |.......L|.G......|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+