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 / Distribution < prev next >

MacBinary | 1993-01-23 | 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
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Fri Jan 22 21:24:01 1993, modified Fri Jan 22 21:24:01 1993, creator 'MPS ', type ASCII, 470 bytes "Distribution" , at 0x256 428 bytes resource	default (weak)
`99%`	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
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 44 69 73 74 72 69 | 62 75 74 69 6f 6e 00 00 |..Distri|bution..|
|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 d6 00 | 00 01 ac a7 86 5c c1 a7 |........|.....\..|
|00000060| 86 5c c1 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 8a 0d 00 00 |........|........|
|00000080| 53 65 74 20 45 78 69 74 | 20 30 0d 50 65 72 6c 20 |Set Exit| 0.Perl |
|00000090| 2d 53 78 20 22 7b 30 7d | 22 20 7b 22 50 61 72 61 |-Sx "{0}|" {"Para|
|000000a0| 6d 65 74 65 72 73 22 7d | 3e 54 6f 44 69 73 74 72 |meters"}|>ToDistr|
|000000b0| 0d 54 6f 44 69 73 74 72 | 0d 44 65 6c 65 74 65 20 |.ToDistr|.Delete |
|000000c0| 2d 79 20 54 6f 44 69 73 | 74 72 0d 45 78 69 74 0d |-y ToDis|tr.Exit.|
|000000d0| 0d 23 21 2f 75 73 72 2f | 62 69 6e 2f 70 65 72 6c |.#!/usr/|bin/perl|
|000000e0| 0d 0d 24 64 65 66 66 6c | 64 72 20 3d 20 70 6f 70 |..$deffl|dr = pop|
|000000f0| 20 40 41 52 47 56 3b 0d | 63 68 6f 70 20 24 64 65 | @ARGV;.|chop $de|
|00000100| 66 66 6c 64 72 20 69 66 | 20 28 24 64 65 66 66 6c |ffldr if| ($deffl|
|00000110| 64 72 20 3d 7e 20 2f 3a | 24 2f 29 3b 0d 0d 66 6f |dr =~ /:|$/);..fo|
|00000120| 72 65 61 63 68 20 24 69 | 20 28 40 41 52 47 56 29 |reach $i| (@ARGV)|
|00000130| 20 7b 0d 09 69 66 20 28 | 24 69 20 3d 7e 20 2f 5e | {..if (|$i =~ /^|
|00000140| 28 2e 2b 3a 29 2f 29 20 | 7b 0d 09 09 24 66 6f 6c |(.+:)/) |{...$fol|
|00000150| 64 65 72 7b 22 24 64 65 | 66 66 6c 64 72 24 31 22 |der{"$de|ffldr$1"|
|00000160| 7d 20 2e 3d 20 22 20 5c | 27 24 69 5c 27 22 3b 0d |} .= " \|'$i\'";.|
|00000170| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 24 66 6f 6c |.} else |{...$fol|
|00000180| 64 65 72 7b 22 24 64 65 | 66 66 6c 64 72 3a 22 7d |der{"$de|ffldr:"}|
|00000190| 20 2e 3d 20 22 20 5c 27 | 24 69 5c 27 22 3b 0d 09 | .= " \'|$i\'";..|
|000001a0| 7d 0d 7d 0d 0d 66 6f 72 | 65 61 63 68 20 24 69 20 |}.}..for|each $i |
|000001b0| 28 73 6f 72 74 20 7b 20 | 28 24 61 20 3d 7e 20 79 |(sort { |($a =~ y|
|000001c0| 2f 3a 2f 3a 2f 29 20 3c | 3d 3e 20 28 24 62 20 3d |/:/:/) <|=> ($b =|
|000001d0| 7e 20 79 2f 3a 2f 3a 2f | 29 20 7d 20 6b 65 79 73 |~ y/:/:/|) } keys|
|000001e0| 20 25 66 6f 6c 64 65 72 | 29 20 7b 0d 09 70 72 69 | %folder|) {..pri|
|000001f0| 6e 74 20 22 42 61 63 6b | 75 70 20 2d 61 20 2d 63 |nt "Back|up -a -c|
|00000200| 20 2d 64 24 66 6f 6c 64 | 65 72 7b 24 69 7d 20 2d | -d$fold|er{$i} -|
|00000210| 74 6f 20 5c 27 24 69 5c | 27 3e 44 6f 44 69 73 74 |to \'$i\|'>DoDist|
|00000220| 72 5c 6e 22 3b 0d 09 70 | 72 69 6e 74 20 22 44 6f |r\n";..p|rint "Do|
|00000230| 44 69 73 74 72 5c 6e 22 | 0d 7d 0d 0d 70 72 69 6e |Distr\n"|.}..prin|
|00000240| 74 20 22 44 65 6c 65 74 | 65 20 44 6f 44 69 73 74 |t "Delet|e DoDist|
|00000250| 72 5c 6e 22 3b 0d 00 00 | 00 00 00 00 00 00 00 00 |r\n";...|........|
|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| 46 6c 6f 61 74 73 00 1d | de e2 00 00 01 97 00 28 |Floats..|.......(|
|000002a0| 20 54 56 69 65 77 3a 3a | 49 6e 76 61 6c 69 64 61 | TView::|Invalida|
|000002b0| 0c 44 69 73 74 72 69 62 | 75 74 69 6f 6e ef 02 00 |.Distrib|ution...|
|000002c0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 ff ff ff ff |..TEXTMP|S ......|
|000002d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 ff ff ff ff |..TEXTMP|S ......|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 a7 47 20 3a 00 00 | 01 d6 00 00 01 ac 67 65 |...G :..|......ge|
|00000300| 49 6e 74 65 72 69 6f 72 | 43 68 61 6e 67 65 64 1d |Interior|Changed.|
|00000310| 00 1d 10 e8 00 00 01 9d | 00 24 1c 54 56 69 65 77 |........|.$.TView|
|00000320| 3a 3a 53 65 74 44 72 61 | 77 69 6e 67 45 6e 76 69 |::SetDra|wingEnvi|
|00000330| 72 6f 6e 6d 65 6e 74 1d | 00 1d 2e a0 00 00 01 9f |ronment.|........|
|00000340| 00 14 0c 54 56 69 65 77 | 3a 3a 54 56 69 65 77 6d |...TView|::TViewm|
|00000350| 00 00 6e fe 00 00 01 89 | 00 1c 14 54 56 69 65 77 |..n.....|...TView|
|00000360| 3a 3a 57 72 69 74 65 53 | 75 62 56 69 65 77 73 1d |::WriteS|ubViews.|
|00000370| 00 1d 84 c4 00 00 01 a2 | 00 20 18 54 56 69 65 77 |........|. .TView|
|00000380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 65 72 0d |...H..Mo|naco.er.|
|00000390| 0d 69 66 20 28 2d 64 20 | 22 3a 47 55 53 49 22 29 |.if (-d |":GUSI")|
|000003a0| 20 7b 0d 09 66 6f 00 06 | 00 03 00 56 00 5d 01 e3 | {..fo..|...V.]..|
|000003b0| 02 7a 00 56 00 5d 01 e3 | 02 7a a7 86 24 81 00 00 |.z.V.]..|.z..$...|
|000003c0| 01 d6 00 00 01 d6 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000003d0| 00 56 00 5d 01 e3 02 7a | 00 56 00 5d 01 e3 02 7a |.V.]...z|.V.]...z|
|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 49 |.....n..|.n...>.I|
|00000400| aa b4 10 2a 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |...*....|.>..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 4f dc 98 00 00 00 00 |.......L|.O......|
|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 |........|........|
+--------+-------------------------+-------------------------+--------+--------+