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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 63 68 | 69 70 40 74 63 74 2e 75 |From: ch|ip@tct.u|
|00000010| 75 63 70 20 28 43 68 69 | 70 20 53 61 6c 7a 65 6e |ucp (Chi|p Salzen|
|00000020| 62 65 72 67 29 0a 4e 65 | 77 73 67 72 6f 75 70 73 |berg).Ne|wsgroups|
|00000030| 3a 20 61 6c 74 2e 73 6f | 75 72 63 65 73 2c 63 6f |: alt.so|urces,co|
|00000040| 6d 70 2e 75 6e 69 78 2e | 71 75 65 73 74 69 6f 6e |mp.unix.|question|
|00000050| 73 2c 63 6f 6d 70 2e 6c | 61 6e 67 2e 70 65 72 6c |s,comp.l|ang.perl|
|00000060| 0a 53 75 62 6a 65 63 74 | 3a 20 41 20 50 65 72 6c |.Subject|: A Perl|
|00000070| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 22 77 61 6c | version| of "wal|
|00000080| 6c 22 0a 4d 65 73 73 61 | 67 65 2d 49 44 3a 20 3c |l".Messa|ge-ID: <|
|00000090| 32 36 34 31 38 36 45 30 | 2e 31 37 42 33 40 74 63 |264186E0|.17B3@tc|
|000000a0| 74 2e 75 75 63 70 3e 0a | 44 61 74 65 3a 20 34 20 |t.uucp>.|Date: 4 |
|000000b0| 4d 61 79 20 39 30 20 31 | 33 3a 34 32 3a 35 36 20 |May 90 1|3:42:56 |
|000000c0| 47 4d 54 0a 0a 5b 54 68 | 69 73 20 61 72 74 69 63 |GMT..[Th|is artic|
|000000d0| 6c 65 20 69 73 20 61 20 | 67 6f 6f 64 20 65 78 61 |le is a |good exa|
|000000e0| 6d 70 6c 65 20 6f 66 20 | 77 68 79 20 77 65 20 6e |mple of |why we n|
|000000f0| 65 65 64 20 22 63 6f 6d | 70 2e 75 6e 69 78 2e 61 |eed "com|p.unix.a|
|00000100| 64 6d 69 6e 22 2e 5d 0a | 0a 44 69 73 6d 61 79 65 |dmin".].|.Dismaye|
|00000110| 64 20 62 79 20 74 68 65 | 20 77 65 69 72 64 20 62 |d by the| weird b|
|00000120| 65 68 61 76 69 6f 72 20 | 6f 66 20 53 43 4f 20 58 |ehavior |of SCO X|
|00000130| 65 6e 69 78 20 22 77 61 | 6c 6c 22 20 28 77 72 69 |enix "wa|ll" (wri|
|00000140| 74 65 20 74 6f 20 61 6c | 6c 0a 75 73 65 72 73 29 |te to al|l.users)|
|00000150| 2c 20 49 20 77 72 6f 74 | 65 20 61 20 50 65 72 6c |, I wrot|e a Perl|
|00000160| 20 76 65 72 73 69 6f 6e | 20 74 68 61 74 20 49 20 | version| that I |
|00000170| 6c 69 6b 65 20 61 20 6c | 6f 74 20 62 65 74 74 65 |like a l|ot bette|
|00000180| 72 3a 0a 0a 31 2e 20 20 | 49 74 20 68 61 73 20 6e |r:..1.  |It has n|
|00000190| 69 63 65 20 70 72 6f 6d | 70 74 73 2e 0a 32 2e 20 |ice prom|pts..2. |
|000001a0| 20 49 74 20 74 65 6c 6c | 73 20 79 6f 75 20 77 68 | It tell|s you wh|
|000001b0| 6f 20 79 6f 75 27 72 65 | 20 77 72 69 74 69 6e 67 |o you're| writing|
|000001c0| 20 74 6f 2e 0a 33 2e 20 | 20 49 74 20 73 6b 69 70 | to..3. | It skip|
|000001d0| 73 20 70 73 65 75 64 6f | 2d 74 74 79 73 2c 20 77 |s pseudo|-ttys, w|
|000001e0| 68 69 63 68 20 69 73 20 | 6e 69 63 65 20 73 69 6e |hich is |nice sin|
|000001f0| 63 65 20 77 65 20 75 73 | 65 20 70 74 79 2d 62 61 |ce we us|e pty-ba|
|00000200| 73 65 64 0a 20 20 20 20 | 6d 75 6c 74 69 73 63 72 |sed.    |multiscr|
|00000210| 65 65 6e 73 2e 20 20 28 | 59 6f 75 20 6d 61 79 20 |eens.  (|You may |
|00000220| 77 61 6e 74 20 74 6f 20 | 72 65 6d 6f 76 65 20 74 |want to |remove t|
|00000230| 68 69 73 20 66 65 61 74 | 75 72 65 2e 29 0a 0a 53 |his feat|ure.)..S|
|00000240| 68 61 72 20 61 6e 64 20 | 65 6e 6a 6f 79 2e 0a 0a |har and |enjoy...|
|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 2e 20 20 52 | 65 6d 6f 76 65 20 61 6e |hive.  R|emove an|
|00000280| 79 74 68 69 6e 67 20 62 | 65 66 6f 72 65 20 74 68 |ything b|efore th|
|00000290| 69 73 20 6c 69 6e 65 2c | 20 74 68 65 6e 20 75 6e |is line,| then un|
|000002a0| 70 61 63 6b 0a 23 20 69 | 74 20 62 79 20 73 61 76 |pack.# i|t by sav|
|000002b0| 69 6e 67 20 69 74 20 69 | 6e 74 6f 20 61 20 66 69 |ing it i|nto a fi|
|000002c0| 6c 65 20 61 6e 64 20 74 | 79 70 69 6e 67 20 22 73 |le and t|yping "s|
|000002d0| 68 20 66 69 6c 65 22 2e | 20 20 54 6f 20 6f 76 65 |h file".|  To ove|
|000002e0| 72 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 0a |rwrite e|xisting.|
|000002f0| 23 20 66 69 6c 65 73 2c | 20 74 79 70 65 20 22 73 |# files,| type "s|
|00000300| 68 20 66 69 6c 65 20 2d | 63 22 2e 20 20 59 6f 75 |h file -|c".  You|
|00000310| 20 63 61 6e 20 61 6c 73 | 6f 20 66 65 65 64 20 74 | can als|o feed t|
|00000320| 68 69 73 20 61 73 20 73 | 74 61 6e 64 61 72 64 20 |his as s|tandard |
|00000330| 69 6e 70 75 74 20 76 69 | 61 0a 23 20 75 6e 73 68 |input vi|a.# unsh|
|00000340| 61 72 2c 20 6f 72 20 62 | 79 20 74 79 70 69 6e 67 |ar, or b|y typing|
|00000350| 20 22 73 68 20 3c 66 69 | 6c 65 22 2c 20 65 2e 67 | "sh <fi|le", e.g|
|00000360| 2e 2e 20 20 49 66 20 74 | 68 69 73 20 61 72 63 68 |..  If t|his arch|
|00000370| 69 76 65 20 69 73 20 63 | 6f 6d 70 6c 65 74 65 2c |ive is c|omplete,|
|00000380| 20 79 6f 75 0a 23 20 77 | 69 6c 6c 20 73 65 65 20 | you.# w|ill see |
|00000390| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6d 65 |the foll|owing me|
|000003a0| 73 73 61 67 65 20 61 74 | 20 74 68 65 20 65 6e 64 |ssage at| the end|
|000003b0| 3a 0a 23 09 09 22 45 6e | 64 20 6f 66 20 73 68 65 |:.#.."En|d of she|
|000003c0| 6c 6c 20 61 72 63 68 69 | 76 65 2e 22 0a 23 20 43 |ll archi|ve.".# C|
|000003d0| 6f 6e 74 65 6e 74 73 3a | 20 20 77 61 6c 6c 0a 23 |ontents:|  wall.#|
|000003e0| 20 57 72 61 70 70 65 64 | 20 62 79 20 72 6f 6f 74 | Wrapped| by root|
|000003f0| 40 74 63 74 20 6f 6e 20 | 46 72 69 20 4d 61 79 20 |@tct on |Fri May |
|00000400| 20 34 20 30 39 3a 34 30 | 3a 32 34 20 31 39 39 30 | 4 09:40|:24 1990|
|00000410| 0a 50 41 54 48 3d 2f 62 | 69 6e 3a 2f 75 73 72 2f |.PATH=/b|in:/usr/|
|00000420| 62 69 6e 3a 2f 75 73 72 | 2f 75 63 62 20 3b 20 65 |bin:/usr|/ucb ; e|
|00000430| 78 70 6f 72 74 20 50 41 | 54 48 0a 69 66 20 74 65 |xport PA|TH.if te|
|00000440| 73 74 20 2d 66 20 27 77 | 61 6c 6c 27 20 2d 61 20 |st -f 'w|all' -a |
|00000450| 22 24 7b 31 7d 22 20 21 | 3d 20 22 2d 63 22 20 3b |"${1}" !|= "-c" ;|
|00000460| 20 74 68 65 6e 20 0a 20 | 20 65 63 68 6f 20 73 68 | then . | echo sh|
|00000470| 61 72 3a 20 57 69 6c 6c | 20 6e 6f 74 20 63 6c 6f |ar: Will| not clo|
|00000480| 62 62 65 72 20 65 78 69 | 73 74 69 6e 67 20 66 69 |bber exi|sting fi|
|00000490| 6c 65 20 5c 22 27 77 61 | 6c 6c 27 5c 22 0a 65 6c |le \"'wa|ll'\".el|
|000004a0| 73 65 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 45 78 |se.echo |shar: Ex|
|000004b0| 74 72 61 63 74 69 6e 67 | 20 5c 22 27 77 61 6c 6c |tracting| \"'wall|
|000004c0| 27 5c 22 20 5c 28 39 31 | 31 20 63 68 61 72 61 63 |'\" \(91|1 charac|
|000004d0| 74 65 72 73 5c 29 0a 73 | 65 64 20 22 73 2f 5e 58 |ters\).s|ed "s/^X|
|000004e0| 2f 2f 22 20 3e 27 77 61 | 6c 6c 27 20 3c 3c 27 45 |//" >'wa|ll' <<'E|
|000004f0| 4e 44 5f 4f 46 5f 46 49 | 4c 45 27 0a 58 65 76 61 |ND_OF_FI|LE'.Xeva|
|00000500| 6c 20 27 65 78 65 63 20 | 2f 62 69 6e 2f 70 65 72 |l 'exec |/bin/per|
|00000510| 6c 20 2d 77 53 20 24 30 | 20 24 7b 31 2b 22 24 40 |l -wS $0| ${1+"$@|
|00000520| 22 7d 27 0a 58 09 69 66 | 20 30 3b 0a 58 0a 58 23 |"}'.X.if| 0;.X.X#|
|00000530| 0a 58 23 20 41 20 50 65 | 72 6c 20 76 65 72 73 69 |.X# A Pe|rl versi|
|00000540| 6f 6e 20 6f 66 20 74 68 | 65 20 72 61 74 68 65 72 |on of th|e rather|
|00000550| 20 73 63 72 65 77 79 20 | 58 65 6e 69 78 20 22 77 | screwy |Xenix "w|
|00000560| 61 6c 6c 22 20 63 6f 6d | 6d 61 6e 64 2e 0a 58 23 |all" com|mand..X#|
|00000570| 20 57 72 69 74 74 65 6e | 20 62 79 20 43 68 69 70 | Written| by Chip|
|00000580| 20 53 61 6c 7a 65 6e 62 | 65 72 67 2c 20 33 20 4d | Salzenb|erg, 3 M|
|00000590| 61 79 20 31 39 39 30 2e | 0a 58 23 0a 58 0a 58 24 |ay 1990.|.X#.X.X$|
|000005a0| 7c 20 3d 20 31 3b 0a 58 | 0a 58 24 5f 20 3d 20 60 || = 1;.X|.X$_ = `|
|000005b0| 77 68 6f 20 61 6d 20 69 | 20 32 3e 2f 64 65 76 2f |who am i| 2>/dev/|
|000005c0| 6e 75 6c 6c 60 3b 0a 58 | 63 68 6f 70 3b 0a 58 28 |null`;.X|chop;.X(|
|000005d0| 24 6d 65 29 20 3d 20 73 | 70 6c 69 74 3b 0a 58 24 |$me) = s|plit;.X$|
|000005e0| 6d 65 20 3d 20 22 53 6f | 6d 65 62 6f 64 79 22 20 |me = "So|mebody" |
|000005f0| 75 6e 6c 65 73 73 20 24 | 6d 65 3b 0a 58 0a 58 70 |unless $|me;.X.Xp|
|00000600| 72 69 6e 74 20 22 45 6e | 74 65 72 20 74 68 65 20 |rint "En|ter the |
|00000610| 6d 65 73 73 61 67 65 20 | 74 6f 20 62 72 6f 61 64 |message |to broad|
|00000620| 63 61 73 74 2e 20 20 45 | 6e 64 20 77 69 74 68 20 |cast.  E|nd with |
|00000630| 5e 44 2e 5c 6e 22 20 69 | 66 20 2d 74 20 53 54 44 |^D.\n" i|f -t STD|
|00000640| 49 4e 3b 0a 58 66 6f 72 | 20 28 3b 3b 29 20 7b 0a |IN;.Xfor| (;;) {.|
|00000650| 58 09 70 72 69 6e 74 20 | 22 3e 3e 20 22 3b 0a 58 |X.print |">> ";.X|
|00000660| 09 24 5f 20 3d 20 3c 53 | 54 44 49 4e 3e 3b 0a 58 |.$_ = <S|TDIN>;.X|
|00000670| 09 75 6e 6c 65 73 73 20 | 28 64 65 66 69 6e 65 64 |.unless |(defined|
|00000680| 28 24 5f 29 29 20 7b 0a | 58 09 09 70 72 69 6e 74 |($_)) {.|X..print|
|00000690| 20 22 3c 45 4f 46 3e 5c | 6e 22 20 69 66 20 2d 74 | "<EOF>\|n" if -t|
|000006a0| 20 53 54 44 49 4e 3b 0a | 58 09 09 6c 61 73 74 3b | STDIN;.|X..last;|
|000006b0| 0a 58 09 7d 0a 58 09 63 | 68 6f 70 3b 0a 58 09 70 |.X.}.X.c|hop;.X.p|
|000006c0| 75 73 68 28 40 4d 53 47 | 2c 20 22 24 5f 20 5c 72 |ush(@MSG|, "$_ \r|
|000006d0| 5c 6e 22 29 3b 0a 58 7d | 0a 58 75 6e 6c 65 73 73 |\n");.X}|.Xunless|
|000006e0| 20 28 40 4d 53 47 29 20 | 7b 0a 58 09 70 72 69 6e | (@MSG) |{.X.prin|
|000006f0| 74 20 73 74 64 65 72 72 | 20 22 77 61 6c 6c 3a 20 |t stderr| "wall: |
|00000700| 6e 6f 20 6d 65 73 73 61 | 67 65 2e 5c 6e 22 3b 0a |no messa|ge.\n";.|
|00000710| 58 09 65 78 69 74 3b 0a | 58 7d 0a 58 75 6e 73 68 |X.exit;.|X}.Xunsh|
|00000720| 69 66 74 28 40 4d 53 47 | 2c 20 22 5c 30 30 37 5c |ift(@MSG|, "\007\|
|00000730| 72 5c 6e 42 72 6f 61 64 | 63 61 73 74 20 4d 65 73 |r\nBroad|cast Mes|
|00000740| 73 61 67 65 20 66 72 6f | 6d 20 24 6d 65 3a 20 5c |sage fro|m $me: \|
|00000750| 72 5c 6e 22 29 3b 0a 58 | 0a 58 6f 70 65 6e 28 57 |r\n");.X|.Xopen(W|
|00000760| 48 4f 2c 20 22 77 68 6f | 7c 22 29 3b 0a 58 77 68 |HO, "who||");.Xwh|
|00000770| 69 6c 65 20 28 3c 57 48 | 4f 3e 29 20 7b 0a 58 09 |ile (<WH|O>) {.X.|
|00000780| 63 68 6f 70 3b 0a 58 09 | 40 46 20 3d 20 73 70 6c |chop;.X.|@F = spl|
|00000790| 69 74 3b 0a 58 09 24 74 | 74 79 20 3d 20 24 46 5b |it;.X.$t|ty = $F[|
|000007a0| 31 5d 3b 0a 58 0a 58 09 | 6e 65 78 74 20 69 66 20 |1];.X.X.|next if |
|000007b0| 24 74 74 79 20 3d 7e 20 | 2f 5e 74 74 79 70 2e 24 |$tty =~ |/^ttyp.$|
|000007c0| 2f 3b 0a 58 0a 58 09 24 | 54 54 59 20 3d 20 22 2f |/;.X.X.$|TTY = "/|
|000007d0| 64 65 76 2f 24 74 74 79 | 22 3b 0a 58 09 75 6e 6c |dev/$tty|";.X.unl|
|000007e0| 65 73 73 20 28 2d 63 20 | 24 54 54 59 29 20 7b 0a |ess (-c |$TTY) {.|
|000007f0| 58 09 09 70 72 69 6e 74 | 20 73 74 64 65 72 72 20 |X..print| stderr |
|00000800| 22 77 61 6c 6c 3a 20 24 | 74 74 79 3a 20 6e 6f 20 |"wall: $|tty: no |
|00000810| 73 75 63 68 20 64 65 76 | 69 63 65 5c 6e 22 3b 0a |such dev|ice\n";.|
|00000820| 58 09 09 6e 65 78 74 3b | 0a 58 09 7d 0a 58 09 75 |X..next;|.X.}.X.u|
|00000830| 6e 6c 65 73 73 20 28 6f | 70 65 6e 28 54 54 59 2c |nless (o|pen(TTY,|
|00000840| 20 22 3e 3e 20 24 54 54 | 59 22 29 29 20 7b 0a 58 | ">> $TT|Y")) {.X|
|00000850| 09 09 70 72 69 6e 74 20 | 73 74 64 65 72 72 20 22 |..print |stderr "|
|00000860| 77 61 6c 6c 3a 20 63 61 | 6e 27 74 20 6f 70 65 6e |wall: ca|n't open|
|00000870| 20 2f 64 65 76 2f 24 74 | 74 79 3a 20 24 21 5c 6e | /dev/$t|ty: $!\n|
|00000880| 22 3b 0a 58 09 09 6e 65 | 78 74 3b 0a 58 09 7d 0a |";.X..ne|xt;.X.}.|
|00000890| 58 09 70 72 69 6e 74 20 | 54 54 59 20 40 4d 53 47 |X.print |TTY @MSG|
|000008a0| 3b 0a 58 09 63 6c 6f 73 | 65 28 54 54 59 29 3b 0a |;.X.clos|e(TTY);.|
|000008b0| 58 7d 0a 58 63 6c 6f 73 | 65 28 57 48 4f 29 3b 0a |X}.Xclos|e(WHO);.|
|000008c0| 45 4e 44 5f 4f 46 5f 46 | 49 4c 45 0a 69 66 20 74 |END_OF_F|ILE.if t|
|000008d0| 65 73 74 20 39 31 31 20 | 2d 6e 65 20 60 77 63 20 |est 911 |-ne `wc |
|000008e0| 2d 63 20 3c 27 77 61 6c | 6c 27 60 3b 20 74 68 65 |-c <'wal|l'`; the|
|000008f0| 6e 0a 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |n.    ec|ho shar:|
|00000900| 20 5c 22 27 77 61 6c 6c | 27 5c 22 20 75 6e 70 61 | \"'wall|'\" unpa|
|00000910| 63 6b 65 64 20 77 69 74 | 68 20 77 72 6f 6e 67 20 |cked wit|h wrong |
|00000920| 73 69 7a 65 21 0a 66 69 | 0a 63 68 6d 6f 64 20 2b |size!.fi|.chmod +|
|00000930| 78 20 27 77 61 6c 6c 27 | 0a 23 20 65 6e 64 20 6f |x 'wall'|.# end o|
|00000940| 66 20 27 77 61 6c 6c 27 | 0a 66 69 0a 65 63 68 6f |f 'wall'|.fi.echo|
|00000950| 20 73 68 61 72 3a 20 45 | 6e 64 20 6f 66 20 73 68 | shar: E|nd of sh|
|00000960| 65 6c 6c 20 61 72 63 68 | 69 76 65 2e 0a 65 78 69 |ell arch|ive..exi|
|00000970| 74 20 30 0a 0a 0a 2d 2d | 20 0a 43 68 69 70 20 53 |t 0...--| .Chip S|
|00000980| 61 6c 7a 65 6e 62 65 72 | 67 20 61 74 20 43 6f 6d |alzenber|g at Com|
|00000990| 44 65 76 2f 54 43 54 20 | 20 20 3c 63 68 69 70 25 |Dev/TCT |  <chip%|
|000009a0| 74 63 74 40 61 74 65 6e | 67 2e 63 6f 6d 3e 2c 20 |tct@aten|g.com>, |
|000009b0| 3c 75 75 6e 65 74 21 61 | 74 65 6e 67 21 74 63 74 |<uunet!a|teng!tct|
|000009c0| 21 63 68 69 70 3e 0a    |                         |!chip>. |        |
+--------+-------------------------+-------------------------+--------+--------+