/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / MacPerl / MakeAliases

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 4d 61 6b 65 41 6c | 69 61 73 65 73 00 00 00 |..MakeAl|iases...|
|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 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 03 1f 00 | 00 01 d2 a8 6d 28 d2 a8 |........|....m(..|
|00000060| 6d 28 d2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |m(......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a3 93 00 00 |........|........|
|00000080| 50 65 72 6c 20 2d 53 78 | 20 22 7b 30 7d 22 20 7b |Perl -Sx| "{0}" {|
|00000090| 22 50 61 72 61 6d 65 74 | 65 72 73 22 7d 3b 20 45 |"Paramet|ers"}; E|
|000000a0| 78 69 74 0d 0d 23 21 2f | 75 73 72 2f 6c 6f 63 61 |xit..#!/|usr/loca|
|000000b0| 6c 2f 62 69 6e 2f 70 65 | 72 6c 0d 23 23 23 23 23 |l/bin/pe|rl.#####|
|000000c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000100| 23 23 0d 23 09 50 72 6f | 6a 65 63 74 09 3a 09 4d |##.#.Pro|ject.:.M|
|00000110| 61 63 50 65 72 6c 0d 23 | 09 41 75 74 68 6f 72 09 |acPerl.#|.Author.|
|00000120| 3a 09 4d 61 74 74 68 69 | 61 73 20 4e 65 65 72 61 |:.Matthi|as Neera|
|00000130| 63 68 65 72 0d 23 09 53 | 74 61 72 74 65 64 09 3a |cher.#.S|tarted.:|
|00000140| 09 30 38 53 65 70 39 32 | 09 09 09 09 09 09 09 09 |.08Sep92|........|
|00000150| 4c 61 6e 67 75 61 67 65 | 09 3a 09 50 65 72 6c 0d |Language|.:.Perl.|
|00000160| 23 09 4d 6f 64 69 66 69 | 65 64 09 3a 09 32 31 4e |#.Modifi|ed.:.21N|
|00000170| 6f 76 39 32 09 4d 4e 09 | 43 6f 6e 73 69 64 65 72 |ov92.MN.|Consider|
|00000180| 20 65 78 74 65 72 6e 61 | 6c 73 0d 23 09 4c 61 73 | externa|ls.#.Las|
|00000190| 74 09 09 3a 09 32 31 4e | 6f 76 39 32 0d 23 23 23 |t..:.21N|ov92.###|
|000001a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000001b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000001c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000001d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000001e0| 23 23 23 23 0d 0d 6f 70 | 65 6e 28 41 4c 49 41 53 |####..op|en(ALIAS|
|000001f0| 2c 20 22 41 6c 69 61 73 | 65 73 22 29 20 09 09 7c |, "Alias|es") ..||
|00000200| 7c 20 64 69 65 20 22 43 | 61 6e 27 74 20 6f 70 65 || die "C|an't ope|
|00000210| 6e 20 66 69 6c 65 20 5c | 22 41 6c 69 61 73 65 73 |n file \|"Aliases|
|00000220| 5c 22 22 3b 0d 6f 70 65 | 6e 28 44 46 2c 20 09 22 |\"";.ope|n(DF, ."|
|00000230| 3e 41 6c 69 61 73 2e 64 | 66 22 29 09 7c 7c 20 64 |>Alias.d|f").|| d|
|00000240| 69 65 20 22 43 61 6e 27 | 74 20 6f 70 65 6e 20 66 |ie "Can'|t open f|
|00000250| 69 6c 65 20 5c 22 41 6c | 69 61 73 2e 64 66 5c 22 |ile \"Al|ias.df\"|
|00000260| 22 3b 0d 6f 70 65 6e 28 | 52 4e 2c 09 09 22 3e 41 |";.open(|RN,..">A|
|00000270| 6c 69 61 73 2e 72 6e 22 | 29 09 7c 7c 20 64 69 65 |lias.rn"|).|| die|
|00000280| 20 22 43 61 6e 27 74 20 | 6f 70 65 6e 20 66 69 6c | "Can't |open fil|
|00000290| 65 20 5c 22 41 6c 69 61 | 73 2e 72 6e 5c 22 22 3b |e \"Alia|s.rn\"";|
|000002a0| 0d 0d 77 68 69 6c 65 20 | 28 3c 41 4c 49 41 53 3e |..while |(<ALIAS>|
|000002b0| 29 09 7b 0d 09 69 66 20 | 28 2f 28 5c 53 2b 29 5c |).{..if |(/(\S+)\|
|000002c0| 73 2b 28 5c 53 2b 29 2f | 29 20 7b 0d 09 09 24 41 |s+(\S+)/|) {...$A|
|000002d0| 6c 69 61 73 7b 24 31 7d | 20 3d 20 24 32 3b 0d 09 |lias{$1}| = $2;..|
|000002e0| 0d 09 09 70 72 69 6e 74 | 20 52 4e 20 20 22 20 20 |...print| RN  "  |
|000002f0| 20 2d 72 6e 20 24 31 3d | 24 32 5c 6e 22 20 75 6e | -rn $1=|$2\n" un|
|00000300| 6c 65 73 73 20 28 24 31 | 20 65 71 20 24 32 29 3b |less ($1| eq $2);|
|00000310| 0d 09 7d 0d 7d 0d 0d 63 | 6c 6f 73 65 20 41 4c 49 |..}.}..c|lose ALI|
|00000320| 41 53 3b 0d 0d 77 68 69 | 6c 65 20 28 3c 3e 29 09 |AS;..whi|le (<>).|
|00000330| 7b 0d 09 69 66 20 28 2f | 5e 28 5c 53 2b 29 2e 2a |{..if (/|^(\S+).*|
|00000340| 5c 24 2f 20 7c 7c 20 2f | 45 50 3d 28 5c 53 2b 29 |\$/ || /|EP=(\S+)|
|00000350| 2f 29 20 7b 0d 09 09 75 | 6e 6c 65 73 73 20 28 24 |/) {...u|nless ($|
|00000360| 41 6c 69 61 73 7b 24 31 | 7d 29 20 7b 0d 09 09 09 |Alias{$1|}) {....|
|00000370| 70 72 69 6e 74 20 44 46 | 20 22 24 31 5c 6e 22 3b |print DF| "$1\n";|
|00000380| 0d 09 09 7d 0d 09 7d 0d | 7d 0d 0d 63 6c 6f 73 65 |...}..}.|}..close|
|00000390| 20 44 46 3b 0d 63 6c 6f | 73 65 20 52 4e 3b 0d 00 | DF;.clo|se RN;..|
|000003a0| 00 00 00 00 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 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 88 | 00 00 00 88 00 00 00 4a |........|.......J|
|00000410| 20 20 20 20 20 20 20 20 | 65 78 74 20 20 20 0d 5f |        |ext   ._|
|00000420| 63 6f 49 6f 63 74 6c 20 | 20 20 20 20 20 20 20 20 |coIoctl |        |
|00000430| 0b 4d 61 6b 65 41 6c 69 | 61 73 65 73 02 00 00 00 |.MakeAli|ases....|
|00000440| 54 45 58 54 4d 50 53 20 | 01 00 01 04 00 c0 00 00 |TEXTMPS |........|
|00000450| 00 00 54 45 58 54 4d 50 | 53 20 01 00 01 04 00 c0 |..TEXTMP|S ......|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 a6 10 87 ef 00 00 | 03 1f 00 00 01 d2 20 20 |........|......  |
|00000480| 53 41 44 45 56 20 20 20 | 20 20 20 20 20 20 20 20 |SADEV   |        |
|00000490| 65 78 74 20 20 20 0d 5f | 73 79 46 41 63 63 65 73 |ext   ._|syFAcces|
|000004a0| 73 20 20 20 20 20 20 20 | 20 20 20 24 30 30 30 30 |s       |   $0000|
|000004b0| 30 31 38 34 20 20 43 6f | 64 65 20 20 53 41 44 45 |0184  Co|de  SADE|
|000004c0| 56 20 20 20 20 20 20 20 | 20 20 20 20 65 78 74 20 |V       |    ext |
|000004d0| 20 20 0d 5f 73 79 43 6c | 6f 73 65 20 20 20 20 20 |  ._syCl|ose     |
|000004e0| 20 20 20 20 20 20 20 24 | 30 30 30 30 30 30 31 36 |       $|00000016|
|000004f0| 20 20 43 6f 64 65 20 20 | 53 41 44 45 56 20 20 20 |  Code  |SADEV   |
|00000500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 ff 7f ff |...H..Mo|naco....|
|00000510| 00 00 00 09 00 00 00 14 | 00 06 26 ac 00 0a 80 01 |........|..&.....|
|00000520| 80 01 7f ff 7f ff 00 06 | 00 03 00 50 00 20 01 dd |........|...P. ..|
|00000530| 02 3d 00 50 00 20 01 dd | 02 3d a8 6c e2 82 00 00 |.=.P. ..|.=.l....|
|00000540| 01 73 00 00 01 7a 00 00 | 00 97 01 00 00 00 00 16 |.s...z..|........|
|00000550| 00 01 00 00 00 ed 00 00 | 01 0b 0b 4c 61 73 74 43 |........|...LastC|
|00000560| 68 61 6e 67 65 00 00 00 | 00 1e 00 50 00 20 01 dd |hange...|...P. ..|
|00000570| 02 3d 00 50 00 20 01 dd | 02 3d 00 00 00 97 00 00 |.=.P. ..|.=......|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 88 |........|........|
|00000590| 00 00 00 88 00 00 00 4a | 00 36 b3 d4 10 e6 00 00 |.......J|.6......|
|000005a0| 00 1c 00 4a 00 00 4d 50 | 53 52 00 02 00 0a 03 ed |...J..MP|SR......|
|000005b0| ff ff 00 00 00 00 00 00 | 00 00 03 ef ff ff 00 00 |........|........|
|000005c0| 00 4c 00 00 00 00 03 f0 | ff ff 00 00 00 66 00 39 |.L......|.....f.9|
|000005d0| 0b d4 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 |........|........|
+--------+-------------------------+-------------------------+--------+--------+