home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: 1122
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news or mail, ASCII text
| default
| |
| 100%
| TrID
| E-Mail message (Var. 2)
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| message/rfc822
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 63 6f 6d 70 2e 6c | 61 6e 67 2e 70 65 72 6c |: comp.l|ang.perl|
|00000040| 2c 61 6c 74 2e 73 6f 75 | 72 63 65 73 0a 53 75 62 |,alt.sou|rces.Sub|
|00000050| 6a 65 63 74 3a 20 50 65 | 72 6c 20 73 79 6e 74 61 |ject: Pe|rl synta|
|00000060| 78 20 63 68 65 63 6b 65 | 72 0a 4d 65 73 73 61 67 |x checke|r.Messag|
|00000070| 65 2d 49 44 3a 20 3c 32 | 36 31 41 30 30 34 42 2e |e-ID: <2|61A004B.|
|00000080| 31 31 35 45 40 74 63 74 | 2e 75 75 63 70 3e 0a 44 |115E@tct|.uucp>.D|
|00000090| 61 74 65 3a 20 34 20 41 | 70 72 20 39 30 20 31 34 |ate: 4 A|pr 90 14|
|000000a0| 3a 31 30 3a 31 38 20 47 | 4d 54 0a 0a 41 63 63 6f |:10:18 G|MT..Acco|
|000000b0| 72 64 69 6e 67 20 74 6f | 20 74 6e 65 66 66 40 62 |rding to| tneff@b|
|000000c0| 66 6d 6e 79 30 2e 55 55 | 2e 4e 45 54 20 28 54 6f |fmny0.UU|.NET (To|
|000000d0| 6d 20 4e 65 66 66 29 3a | 0a 3e 41 6c 73 6f 20 2d |m Neff):|.>Also -|
|000000e0| 2d 20 69 74 20 77 6f 75 | 6c 64 20 62 65 20 6e 69 |- it wou|ld be ni|
|000000f0| 63 65 20 74 6f 20 68 61 | 76 65 20 61 20 22 63 6f |ce to ha|ve a "co|
|00000100| 6d 70 69 6c 65 20 62 75 | 74 20 64 6f 20 6e 6f 74 |mpile bu|t do not|
|00000110| 20 65 78 65 63 75 74 65 | 22 20 6f 70 74 69 6f 6e | execute|" option|
|00000120| 0a 3e 73 77 69 74 63 68 | 2e 0a 0a 4e 6f 20 6e 65 |.>switch|...No ne|
|00000130| 65 64 20 74 6f 20 62 6f | 74 68 65 72 20 4c 61 72 |ed to bo|ther Lar|
|00000140| 72 79 2e 20 20 55 73 65 | 20 74 68 69 73 20 73 63 |ry. Use| this sc|
|00000150| 72 69 70 74 2c 20 22 63 | 6b 70 65 72 6c 22 2c 20 |ript, "c|kperl", |
|00000160| 77 68 69 63 68 20 63 68 | 65 63 6b 73 20 74 68 65 |which ch|ecks the|
|00000170| 0a 73 79 6e 74 61 78 20 | 6f 66 20 50 65 72 6c 20 |.syntax |of Perl |
|00000180| 63 6f 64 65 2e 0a 0a 23 | 21 20 2f 62 69 6e 2f 73 |code...#|! /bin/s|
|00000190| 68 0a 23 20 54 68 69 73 | 20 69 73 20 61 20 73 68 |h.# This| is a sh|
|000001a0| 65 6c 6c 20 61 72 63 68 | 69 76 65 2e 20 20 52 65 |ell arch|ive. Re|
|000001b0| 6d 6f 76 65 20 61 6e 79 | 74 68 69 6e 67 20 62 65 |move any|thing be|
|000001c0| 66 6f 72 65 20 74 68 69 | 73 20 6c 69 6e 65 2c 20 |fore thi|s line, |
|000001d0| 74 68 65 6e 20 75 6e 70 | 61 63 6b 0a 23 20 69 74 |then unp|ack.# it|
|000001e0| 20 62 79 20 73 61 76 69 | 6e 67 20 69 74 20 69 6e | by savi|ng it in|
|000001f0| 74 6f 20 61 20 66 69 6c | 65 20 61 6e 64 20 74 79 |to a fil|e and ty|
|00000200| 70 69 6e 67 20 22 73 68 | 20 66 69 6c 65 22 2e 20 |ping "sh| file". |
|00000210| 20 54 6f 20 6f 76 65 72 | 77 72 69 74 65 20 65 78 | To over|write ex|
|00000220| 69 73 74 69 6e 67 0a 23 | 20 66 69 6c 65 73 2c 20 |isting.#| files, |
|00000230| 74 79 70 65 20 22 73 68 | 20 66 69 6c 65 20 2d 63 |type "sh| file -c|
|00000240| 22 2e 20 20 59 6f 75 20 | 63 61 6e 20 61 6c 73 6f |". You |can also|
|00000250| 20 66 65 65 64 20 74 68 | 69 73 20 61 73 20 73 74 | feed th|is as st|
|00000260| 61 6e 64 61 72 64 20 69 | 6e 70 75 74 20 76 69 61 |andard i|nput via|
|00000270| 0a 23 20 75 6e 73 68 61 | 72 2c 20 6f 72 20 62 79 |.# unsha|r, or by|
|00000280| 20 74 79 70 69 6e 67 20 | 22 73 68 20 3c 66 69 6c | typing |"sh <fil|
|00000290| 65 22 2c 20 65 2e 67 2e | 2e 20 20 49 66 20 74 68 |e", e.g.|. If th|
|000002a0| 69 73 20 61 72 63 68 69 | 76 65 20 69 73 20 63 6f |is archi|ve is co|
|000002b0| 6d 70 6c 65 74 65 2c 20 | 79 6f 75 0a 23 20 77 69 |mplete, |you.# wi|
|000002c0| 6c 6c 20 73 65 65 20 74 | 68 65 20 66 6f 6c 6c 6f |ll see t|he follo|
|000002d0| 77 69 6e 67 20 6d 65 73 | 73 61 67 65 20 61 74 20 |wing mes|sage at |
|000002e0| 74 68 65 20 65 6e 64 3a | 0a 23 09 09 22 45 6e 64 |the end:|.#.."End|
|000002f0| 20 6f 66 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 | of shel|l archiv|
|00000300| 65 2e 22 0a 23 20 43 6f | 6e 74 65 6e 74 73 3a 20 |e.".# Co|ntents: |
|00000310| 20 63 6b 70 65 72 6c 0a | 23 20 57 72 61 70 70 65 | ckperl.|# Wrappe|
|00000320| 64 20 62 79 20 63 68 69 | 70 40 74 63 74 20 6f 6e |d by chi|p@tct on|
|00000330| 20 57 65 64 20 41 70 72 | 20 20 34 20 31 30 3a 30 | Wed Apr| 4 10:0|
|00000340| 37 3a 33 32 20 31 39 39 | 30 0a 50 41 54 48 3d 2f |7:32 199|0.PATH=/|
|00000350| 62 69 6e 3a 2f 75 73 72 | 2f 62 69 6e 3a 2f 75 73 |bin:/usr|/bin:/us|
|00000360| 72 2f 75 63 62 20 3b 20 | 65 78 70 6f 72 74 20 50 |r/ucb ; |export P|
|00000370| 41 54 48 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |ATH.if t|est -f '|
|00000380| 63 6b 70 65 72 6c 27 20 | 2d 61 20 22 24 7b 31 7d |ckperl' |-a "${1}|
|00000390| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|000003a0| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | . echo| shar: W|
|000003b0| 69 6c 6c 20 6e 6f 74 20 | 63 6c 6f 62 62 65 72 20 |ill not |clobber |
|000003c0| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 5c 22 |existing| file \"|
|000003d0| 27 63 6b 70 65 72 6c 27 | 5c 22 0a 65 6c 73 65 0a |'ckperl'|\".else.|
|000003e0| 65 63 68 6f 20 73 68 61 | 72 3a 20 45 78 74 72 61 |echo sha|r: Extra|
|000003f0| 63 74 69 6e 67 20 5c 22 | 27 63 6b 70 65 72 6c 27 |cting \"|'ckperl'|
|00000400| 5c 22 20 5c 28 32 35 38 | 20 63 68 61 72 61 63 74 |\" \(258| charact|
|00000410| 65 72 73 5c 29 0a 73 65 | 64 20 22 73 2f 5e 58 2f |ers\).se|d "s/^X/|
|00000420| 2f 22 20 3e 27 63 6b 70 | 65 72 6c 27 20 3c 3c 27 |/" >'ckp|erl' <<'|
|00000430| 45 4e 44 5f 4f 46 5f 46 | 49 4c 45 27 0a 58 3a 20 |END_OF_F|ILE'.X: |
|00000440| 63 6b 70 65 72 6c 0a 58 | 23 20 43 68 65 63 6b 20 |ckperl.X|# Check |
|00000450| 73 79 6e 74 61 78 20 6f | 66 20 61 20 50 65 72 6c |syntax o|f a Perl|
|00000460| 20 70 72 6f 67 72 61 6d | 2c 20 62 75 74 20 64 6f | program|, but do|
|00000470| 6e 27 74 20 65 78 65 63 | 75 74 65 20 69 74 2e 0a |n't exec|ute it..|
|00000480| 58 0a 58 54 3d 2f 74 6d | 70 2f 70 65 72 6c 24 24 |X.XT=/tm|p/perl$$|
|00000490| 0a 58 74 72 61 70 20 27 | 65 78 69 74 27 20 31 20 |.Xtrap '|exit' 1 |
|000004a0| 32 20 33 20 31 33 20 31 | 35 0a 58 74 72 61 70 20 |2 3 13 1|5.Xtrap |
|000004b0| 27 72 6d 20 2d 66 20 24 | 54 27 20 30 0a 58 0a 58 |'rm -f $|T' 0.X.X|
|000004c0| 66 6f 72 20 66 0a 58 64 | 6f 0a 58 20 20 20 20 73 |for f.Xd|o.X s|
|000004d0| 65 64 20 27 31 7b 73 2f | 5e 23 21 2e 2a 2f 2f 3b |ed '1{s/|^#!.*//;|
|000004e0| 73 2f 5e 3a 2e 2a 2f 2f | 3b 73 2f 5e 2f 65 78 69 |s/^:.*//|;s/^/exi|
|000004f0| 74 20 30 3b 20 2f 3b 7d | 27 20 24 66 20 3e 24 54 |t 0; /;}|' $f >$T|
|00000500| 0a 58 20 20 20 20 69 66 | 20 5b 20 2d 73 20 24 54 |.X if| [ -s $T|
|00000510| 20 5d 0a 58 20 20 20 20 | 74 68 65 6e 0a 58 09 70 | ].X |then.X.p|
|00000520| 65 72 6c 20 2d 77 20 24 | 54 20 32 3e 26 31 20 7c |erl -w $|T 2>&1 ||
|00000530| 20 73 65 64 20 22 73 23 | 24 54 23 24 66 23 22 0a | sed "s#|$T#$f#".|
|00000540| 58 20 20 20 20 66 69 0a | 58 64 6f 6e 65 0a 45 4e |X fi.|Xdone.EN|
|00000550| 44 5f 4f 46 5f 46 49 4c | 45 0a 69 66 20 74 65 73 |D_OF_FIL|E.if tes|
|00000560| 74 20 32 35 38 20 2d 6e | 65 20 60 77 63 20 2d 63 |t 258 -n|e `wc -c|
|00000570| 20 3c 27 63 6b 70 65 72 | 6c 27 60 3b 20 74 68 65 | <'ckper|l'`; the|
|00000580| 6e 0a 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |n. ec|ho shar:|
|00000590| 20 5c 22 27 63 6b 70 65 | 72 6c 27 5c 22 20 75 6e | \"'ckpe|rl'\" un|
|000005a0| 70 61 63 6b 65 64 20 77 | 69 74 68 20 77 72 6f 6e |packed w|ith wron|
|000005b0| 67 20 73 69 7a 65 21 0a | 66 69 0a 63 68 6d 6f 64 |g size!.|fi.chmod|
|000005c0| 20 2b 78 20 27 63 6b 70 | 65 72 6c 27 0a 23 20 65 | +x 'ckp|erl'.# e|
|000005d0| 6e 64 20 6f 66 20 27 63 | 6b 70 65 72 6c 27 0a 66 |nd of 'c|kperl'.f|
|000005e0| 69 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 6e 64 |i.echo s|har: End|
|000005f0| 20 6f 66 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 | of shel|l archiv|
|00000600| 65 2e 0a 65 78 69 74 20 | 30 0a 2d 2d 20 0a 43 68 |e..exit |0.-- .Ch|
|00000610| 69 70 20 53 61 6c 7a 65 | 6e 62 65 72 67 20 61 74 |ip Salze|nberg at|
|00000620| 20 43 6f 6d 44 65 76 2f | 54 43 54 20 20 20 3c 63 | ComDev/|TCT <c|
|00000630| 68 69 70 25 74 63 74 40 | 61 74 65 6e 67 2e 63 6f |hip%tct@|ateng.co|
|00000640| 6d 3e 2c 20 3c 75 75 6e | 65 74 21 61 74 65 6e 67 |m>, <uun|et!ateng|
|00000650| 21 74 63 74 21 63 68 69 | 70 3e 0a 20 20 20 20 20 |!tct!chi|p>. |
|00000660| 20 20 20 20 20 22 54 68 | 65 20 55 73 65 6e 65 74 | "Th|e Usenet|
|00000670| 2c 20 69 6e 20 61 20 76 | 65 72 79 20 72 65 61 6c |, in a v|ery real|
|00000680| 20 73 65 6e 73 65 2c 20 | 64 6f 65 73 20 6e 6f 74 | sense, |does not|
|00000690| 20 65 78 69 73 74 2e 22 | 0a | exist."|. |
+--------+-------------------------+-------------------------+--------+--------+
