/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1125

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 74 6e | 65 66 66 40 62 66 6d 6e |From: tn|eff@bfmn|
|00000010| 79 30 2e 55 55 2e 4e 45 | 54 20 28 54 6f 6d 20 4e |y0.UU.NE|T (Tom N|
|00000020| 65 66 66 29 0a 4e 65 77 | 73 67 72 6f 75 70 73 3a |eff).New|sgroups:|
|00000030| 20 63 6f 6d 70 2e 6c 61 | 6e 67 2e 70 65 72 6c 2c | comp.la|ng.perl,|
|00000040| 61 6c 74 2e 73 6f 75 72 | 63 65 73 0a 53 75 62 6a |alt.sour|ces.Subj|
|00000050| 65 63 74 3a 20 52 65 3a | 20 50 65 72 6c 20 73 79 |ect: Re:| Perl sy|
|00000060| 6e 74 61 78 20 63 68 65 | 63 6b 65 72 0a 4d 65 73 |ntax che|cker.Mes|
|00000070| 73 61 67 65 2d 49 44 3a | 20 3c 31 35 33 31 39 40 |sage-ID:| <15319@|
|00000080| 62 66 6d 6e 79 30 2e 55 | 55 2e 4e 45 54 3e 0a 44 |bfmny0.U|U.NET>.D|
|00000090| 61 74 65 3a 20 34 20 41 | 70 72 20 39 30 20 30 31 |ate: 4 A|pr 90 01|
|000000a0| 3a 32 34 3a 34 31 20 47 | 4d 54 0a 0a 49 6e 20 61 |:24:41 G|MT..In a|
|000000b0| 72 74 69 63 6c 65 20 3c | 32 36 31 41 30 30 34 42 |rticle <|261A004B|
|000000c0| 2e 31 31 35 45 40 74 63 | 74 2e 75 75 63 70 3e 20 |.115E@tc|t.uucp> |
|000000d0| 63 68 69 70 40 74 63 74 | 2e 75 75 63 70 20 28 43 |chip@tct|.uucp (C|
|000000e0| 68 69 70 20 53 61 6c 7a | 65 6e 62 65 72 67 29 20 |hip Salz|enberg) |
|000000f0| 77 72 69 74 65 73 3a 0a | 3e 41 63 63 6f 72 64 69 |writes:.|>Accordi|
|00000100| 6e 67 20 74 6f 20 74 6e | 65 66 66 40 62 66 6d 6e |ng to tn|eff@bfmn|
|00000110| 79 30 2e 55 55 2e 4e 45 | 54 20 28 54 6f 6d 20 4e |y0.UU.NE|T (Tom N|
|00000120| 65 66 66 29 3a 0a 3e 3e | 41 6c 73 6f 20 2d 2d 20 |eff):.>>|Also -- |
|00000130| 69 74 20 77 6f 75 6c 64 | 20 62 65 20 6e 69 63 65 |it would| be nice|
|00000140| 20 74 6f 20 68 61 76 65 | 20 61 20 22 63 6f 6d 70 | to have| a "comp|
|00000150| 69 6c 65 20 62 75 74 20 | 64 6f 20 6e 6f 74 20 65 |ile but |do not e|
|00000160| 78 65 63 75 74 65 22 20 | 6f 70 74 69 6f 6e 0a 3e |xecute" |option.>|
|00000170| 3e 73 77 69 74 63 68 2e | 0a 3e 0a 3e 4e 6f 20 6e |>switch.|.>.>No n|
|00000180| 65 65 64 20 74 6f 20 62 | 6f 74 68 65 72 20 4c 61 |eed to b|other La|
|00000190| 72 72 79 2e 20 20 55 73 | 65 20 74 68 69 73 20 73 |rry.  Us|e this s|
|000001a0| 63 72 69 70 74 2c 20 22 | 63 6b 70 65 72 6c 22 2c |cript, "|ckperl",|
|000001b0| 20 77 68 69 63 68 20 63 | 68 65 63 6b 73 20 74 68 | which c|hecks th|
|000001c0| 65 0a 3e 73 79 6e 74 61 | 78 20 6f 66 20 50 65 72 |e.>synta|x of Per|
|000001d0| 6c 20 63 6f 64 65 2e 0a | 0a 4f 6f 6f 68 2c 20 64 |l code..|.Oooh, d|
|000001e0| 6f 6e 27 74 20 75 73 65 | 20 73 65 64 20 74 6f 20 |on't use| sed to |
|000001f0| 63 68 65 63 6b 20 50 65 | 72 6c 20 73 79 6e 74 61 |check Pe|rl synta|
|00000200| 78 2e 20 20 3a 2d 29 0a | 0a 2f 5c 2f 5c 2f 5c 20 |x.  :-).|./\/\/\ |
|00000210| 73 61 77 20 68 65 72 65 | 20 2f 5c 2f 5c 2f 5c 20 |saw here| /\/\/\ |
|00000220| 73 61 77 20 68 65 72 65 | 20 2f 5c 2f 5c 2f 5c 20 |saw here| /\/\/\ |
|00000230| 73 61 77 20 68 65 72 65 | 20 2f 5c 2f 5c 2f 5c 20 |saw here| /\/\/\ |
|00000240| 73 61 77 20 68 65 72 65 | 20 2f 5c 2f 5c 2f 5c 0a |saw here| /\/\/\.|
|00000250| 23 21 20 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |#! /bin/|sh.# Thi|
|00000260| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|00000270| 68 69 76 65 2c 20 6d 65 | 61 6e 69 6e 67 3a 0a 23 |hive, me|aning:.#|
|00000280| 20 31 2e 20 52 65 6d 6f | 76 65 20 65 76 65 72 79 | 1. Remo|ve every|
|00000290| 74 68 69 6e 67 20 61 62 | 6f 76 65 20 74 68 65 20 |thing ab|ove the |
|000002a0| 23 21 20 2f 62 69 6e 2f | 73 68 20 6c 69 6e 65 2e |#! /bin/|sh line.|
|000002b0| 0a 23 20 32 2e 20 53 61 | 76 65 20 74 68 65 20 72 |.# 2. Sa|ve the r|
|000002c0| 65 73 75 6c 74 69 6e 67 | 20 74 65 78 74 20 69 6e |esulting| text in|
|000002d0| 20 61 20 66 69 6c 65 2e | 0a 23 20 33 2e 20 45 78 | a file.|.# 3. Ex|
|000002e0| 65 63 75 74 65 20 74 68 | 65 20 66 69 6c 65 20 77 |ecute th|e file w|
|000002f0| 69 74 68 20 2f 62 69 6e | 2f 73 68 20 28 6e 6f 74 |ith /bin|/sh (not|
|00000300| 20 63 73 68 29 20 74 6f | 20 63 72 65 61 74 65 3a | csh) to| create:|
|00000310| 0a 23 09 63 6b 70 0a 23 | 20 54 68 69 73 20 61 72 |.#.ckp.#| This ar|
|00000320| 63 68 69 76 65 20 63 72 | 65 61 74 65 64 3a 20 57 |chive cr|eated: W|
|00000330| 65 64 20 41 70 72 20 20 | 34 20 31 37 3a 31 36 3a |ed Apr  |4 17:16:|
|00000340| 33 39 20 31 39 39 30 0a | 65 78 70 6f 72 74 20 50 |39 1990.|export P|
|00000350| 41 54 48 3b 20 50 41 54 | 48 3d 2f 62 69 6e 3a 2f |ATH; PAT|H=/bin:/|
|00000360| 75 73 72 2f 62 69 6e 3a | 24 50 41 54 48 0a 69 66 |usr/bin:|$PATH.if|
|00000370| 20 74 65 73 74 20 2d 66 | 20 27 63 6b 70 27 0a 74 | test -f| 'ckp'.t|
|00000380| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|00000390| 22 77 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 |"will no|t over-w|
|000003a0| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|000003b0| 6c 65 20 27 63 6b 70 27 | 22 0a 65 6c 73 65 0a 73 |le 'ckp'|".else.s|
|000003c0| 65 64 20 27 73 2f 5e 58 | 2f 2f 27 20 3c 3c 20 5c |ed 's/^X|//' << \|
|000003d0| 53 48 41 52 5f 45 4f 46 | 20 3e 20 27 63 6b 70 27 |SHAR_EOF| > 'ckp'|
|000003e0| 0a 58 23 21 2f 75 73 72 | 2f 62 69 6e 2f 70 65 72 |.X#!/usr|/bin/per|
|000003f0| 6c 0a 58 65 76 61 6c 20 | 22 65 78 65 63 20 2f 75 |l.Xeval |"exec /u|
|00000400| 73 72 2f 62 69 6e 2f 70 | 65 72 6c 20 2d 53 20 24 |sr/bin/p|erl -S $|
|00000410| 30 20 24 2a 22 0a 58 09 | 69 66 20 24 72 75 6e 6e |0 $*".X.|if $runn|
|00000420| 69 6e 67 5f 75 6e 64 65 | 72 5f 73 6f 6d 65 5f 73 |ing_unde|r_some_s|
|00000430| 68 65 6c 6c 3b 0a 58 0a | 58 23 20 63 6b 70 20 2d |hell;.X.|X# ckp -|
|00000440| 20 63 68 65 63 6b 20 61 | 20 50 65 72 6c 20 73 63 | check a| Perl sc|
|00000450| 72 69 70 74 20 28 66 72 | 6f 6d 20 53 54 44 49 4e |ript (fr|om STDIN|
|00000460| 29 20 66 6f 72 20 73 79 | 6e 74 61 78 2e 0a 58 23 |) for sy|ntax..X#|
|00000470| 20 50 65 72 6c 20 73 77 | 69 74 63 68 65 73 20 6d | Perl sw|itches m|
|00000480| 61 79 20 62 65 20 73 75 | 70 70 6c 69 65 64 20 61 |ay be su|pplied a|
|00000490| 73 20 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 75 6d |s option|al argum|
|000004a0| 65 6e 74 73 2e 0a 58 0a | 58 64 69 65 20 75 6e 6c |ents..X.|Xdie unl|
|000004b0| 65 73 73 20 6f 70 65 6e | 28 49 4e 2c 22 2d 22 29 |ess open|(IN,"-")|
|000004c0| 3b 09 23 20 67 65 74 20 | 61 72 6f 75 6e 64 20 70 |;.# get |around p|
|000004d0| 72 6f 67 72 61 6d 2f 64 | 61 74 61 20 53 54 44 49 |rogram/d|ata STDI|
|000004e0| 4e 20 63 6f 6e 66 6c 69 | 63 74 0a 58 0a 58 24 70 |N confli|ct.X.X$p|
|000004f0| 63 6d 64 20 3d 20 22 70 | 65 72 6c 22 20 75 6e 6c |cmd = "p|erl" unl|
|00000500| 65 73 73 20 28 24 70 63 | 6d 64 29 20 3d 20 28 24 |ess ($pc|md) = ($|
|00000510| 74 6f 70 6c 69 6e 65 20 | 3d 20 3c 49 4e 3e 29 20 |topline |= <IN>) |
|00000520| 3d 7e 20 2f 5e 23 21 5c | 73 2a 28 2e 2b 29 5c 73 |=~ /^#!\|s*(.+)\s|
|00000530| 2a 24 2f 3b 0a 58 24 70 | 63 6d 64 20 2e 3d 20 22 |*$/;.X$p|cmd .= "|
|00000540| 20 40 41 52 47 56 22 20 | 69 66 20 40 41 52 47 56 | @ARGV" |if @ARGV|
|00000550| 3b 0a 58 0a 58 64 69 65 | 20 75 6e 6c 65 73 73 20 |;.X.Xdie| unless |
|00000560| 6f 70 65 6e 28 43 4d 44 | 2c 22 7c 24 70 63 6d 64 |open(CMD|,"|$pcmd|
|00000570| 22 29 3b 0a 58 70 72 69 | 6e 74 20 43 4d 44 20 22 |");.Xpri|nt CMD "|
|00000580| 65 78 69 74 20 30 3b 20 | 22 2c 24 74 6f 70 6c 69 |exit 0; |",$topli|
|00000590| 6e 65 3b 0a 58 77 68 69 | 6c 65 20 28 3c 49 4e 3e |ne;.Xwhi|le (<IN>|
|000005a0| 29 20 7b 20 70 72 69 6e | 74 20 43 4d 44 3b 20 7d |) { prin|t CMD; }|
|000005b0| 09 23 20 63 6f 6e 73 65 | 72 76 65 20 6d 65 6d 6f |.# conse|rve memo|
|000005c0| 72 79 0a 58 63 6c 6f 73 | 65 28 43 4d 44 29 3b 0a |ry.Xclos|e(CMD);.|
|000005d0| 53 48 41 52 5f 45 4f 46 | 0a 63 68 6d 6f 64 20 2b |SHAR_EOF|.chmod +|
|000005e0| 78 20 27 63 6b 70 27 0a | 66 69 0a 65 78 69 74 20 |x 'ckp'.|fi.exit |
|000005f0| 30 0a 23 09 45 6e 64 20 | 6f 66 20 73 68 65 6c 6c |0.#.End |of shell|
|00000600| 20 61 72 63 68 69 76 65 | 0a                      | archive|.       |
+--------+-------------------------+-------------------------+--------+--------+