/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / misc / volume05 / ctime.pl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 64 65 63 | 77 72 6c 21 6c 61 62 72 |From dec|wrl!labr|
|00000010| 65 61 21 65 6f 73 21 61 | 6d 65 73 21 6d 61 69 6c |ea!eos!a|mes!mail|
|00000020| 72 75 73 21 74 75 74 2e | 63 69 73 2e 6f 68 69 6f |rus!tut.|cis.ohio|
|00000030| 2d 73 74 61 74 65 2e 65 | 64 75 21 63 77 6a 63 63 |-state.e|du!cwjcc|
|00000040| 21 68 61 6c 21 6e 63 6f | 61 73 74 21 61 6c 6c 62 |!hal!nco|ast!allb|
|00000050| 65 72 79 20 53 61 74 20 | 44 65 63 20 20 33 20 31 |ery Sat |Dec  3 1|
|00000060| 37 3a 32 31 3a 34 36 20 | 50 53 54 20 31 39 38 38 |7:21:46 |PST 1988|
|00000070| 0a 41 72 74 69 63 6c 65 | 20 37 34 30 20 6f 66 20 |.Article| 740 of |
|00000080| 63 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 6d 69 73 |comp.sou|rces.mis|
|00000090| 63 3a 0a 50 61 74 68 3a | 20 67 72 61 6e 69 74 65 |c:.Path:| granite|
|000000a0| 21 64 65 63 77 72 6c 21 | 6c 61 62 72 65 61 21 65 |!decwrl!|labrea!e|
|000000b0| 6f 73 21 61 6d 65 73 21 | 6d 61 69 6c 72 75 73 21 |os!ames!|mailrus!|
|000000c0| 74 75 74 2e 63 69 73 2e | 6f 68 69 6f 2d 73 74 61 |tut.cis.|ohio-sta|
|000000d0| 74 65 2e 65 64 75 21 63 | 77 6a 63 63 21 68 61 6c |te.edu!c|wjcc!hal|
|000000e0| 21 6e 63 6f 61 73 74 21 | 61 6c 6c 62 65 72 79 0a |!ncoast!|allbery.|
|000000f0| 46 72 6f 6d 3a 20 6b 65 | 62 73 63 68 40 6e 69 78 |From: ke|bsch@nix|
|00000100| 70 62 65 2e 55 55 43 50 | 0a 4e 65 77 73 67 72 6f |pbe.UUCP|.Newsgro|
|00000110| 75 70 73 3a 20 63 6f 6d | 70 2e 73 6f 75 72 63 65 |ups: com|p.source|
|00000120| 73 2e 6d 69 73 63 0a 53 | 75 62 6a 65 63 74 3a 20 |s.misc.S|ubject: |
|00000130| 76 30 35 69 30 36 34 3a | 20 63 74 69 6d 65 2e 70 |v05i064:| ctime.p|
|00000140| 6c 2c 20 50 65 72 6c 20 | 76 65 72 73 69 6f 6e 20 |l, Perl |version |
|00000150| 6f 66 20 63 74 69 6d 65 | 28 33 43 29 0a 4d 65 73 |of ctime|(3C).Mes|
|00000160| 73 61 67 65 2d 49 44 3a | 20 3c 34 31 34 30 30 30 |sage-ID:| <414000|
|00000170| 30 31 40 6e 69 78 70 62 | 65 3e 0a 44 61 74 65 3a |01@nixpb|e>.Date:|
|00000180| 20 33 20 44 65 63 20 38 | 38 20 30 30 3a 32 39 3a | 3 Dec 8|8 00:29:|
|00000190| 33 30 20 47 4d 54 0a 53 | 65 6e 64 65 72 3a 20 61 |30 GMT.S|ender: a|
|000001a0| 6c 6c 62 65 72 79 40 6e | 63 6f 61 73 74 2e 55 55 |llbery@n|coast.UU|
|000001b0| 43 50 0a 52 65 70 6c 79 | 2d 54 6f 3a 20 6b 65 62 |CP.Reply|-To: keb|
|000001c0| 73 63 68 40 6e 69 78 70 | 62 65 2e 55 55 43 50 0a |sch@nixp|be.UUCP.|
|000001d0| 4c 69 6e 65 73 3a 20 37 | 35 0a 41 70 70 72 6f 76 |Lines: 7|5.Approv|
|000001e0| 65 64 3a 20 61 6c 6c 62 | 65 72 79 40 6e 63 6f 61 |ed: allb|ery@ncoa|
|000001f0| 73 74 2e 55 55 43 50 0a | 0a 50 6f 73 74 69 6e 67 |st.UUCP.|.Posting|
|00000200| 2d 6e 75 6d 62 65 72 3a | 20 56 6f 6c 75 6d 65 20 |-number:| Volume |
|00000210| 35 2c 20 49 73 73 75 65 | 20 36 34 0a 53 75 62 6d |5, Issue| 64.Subm|
|00000220| 69 74 74 65 64 2d 62 79 | 3a 20 22 41 2e 20 4e 6f |itted-by|: "A. No|
|00000230| 6e 79 6d 6f 75 73 22 20 | 3c 6b 65 62 73 63 68 40 |nymous" |<kebsch@|
|00000240| 6e 69 78 70 62 65 2e 55 | 55 43 50 3e 0a 41 72 63 |nixpbe.U|UCP>.Arc|
|00000250| 68 69 76 65 2d 6e 61 6d | 65 3a 20 63 74 69 6d 65 |hive-nam|e: ctime|
|00000260| 2e 70 6c 0a 0a 23 21 20 | 2f 62 69 6e 2f 73 68 0a |.pl..#! |/bin/sh.|
|00000270| 23 20 54 68 69 73 20 69 | 73 20 61 20 73 68 65 6c |# This i|s a shel|
|00000280| 6c 20 61 72 63 68 69 76 | 65 2c 20 6d 65 61 6e 69 |l archiv|e, meani|
|00000290| 6e 67 3a 0a 23 20 31 2e | 20 52 65 6d 6f 76 65 20 |ng:.# 1.| Remove |
|000002a0| 65 76 65 72 79 74 68 69 | 6e 67 20 61 62 6f 76 65 |everythi|ng above|
|000002b0| 20 74 68 65 20 23 21 20 | 2f 62 69 6e 2f 73 68 20 | the #! |/bin/sh |
|000002c0| 6c 69 6e 65 2e 0a 23 20 | 32 2e 20 53 61 76 65 20 |line..# |2. Save |
|000002d0| 74 68 65 20 72 65 73 75 | 6c 74 69 6e 67 20 74 65 |the resu|lting te|
|000002e0| 78 74 20 69 6e 20 61 20 | 66 69 6c 65 2e 0a 23 20 |xt in a |file..# |
|000002f0| 33 2e 20 45 78 65 63 75 | 74 65 20 74 68 65 20 66 |3. Execu|te the f|
|00000300| 69 6c 65 20 77 69 74 68 | 20 2f 62 69 6e 2f 73 68 |ile with| /bin/sh|
|00000310| 20 28 6e 6f 74 20 63 73 | 68 29 20 74 6f 20 63 72 | (not cs|h) to cr|
|00000320| 65 61 74 65 3a 0a 23 09 | 63 74 69 6d 65 2e 70 6c |eate:.#.|ctime.pl|
|00000330| 0a 23 09 63 74 65 73 74 | 0a 23 20 54 68 69 73 20 |.#.ctest|.# This |
|00000340| 61 72 63 68 69 76 65 20 | 63 72 65 61 74 65 64 3a |archive |created:|
|00000350| 20 53 75 6e 20 4e 6f 76 | 20 32 37 20 31 37 3a 30 | Sun Nov| 27 17:0|
|00000360| 34 3a 33 35 20 31 39 38 | 38 0a 65 78 70 6f 72 74 |4:35 198|8.export|
|00000370| 20 50 41 54 48 3b 20 50 | 41 54 48 3d 2f 62 69 6e | PATH; P|ATH=/bin|
|00000380| 3a 2f 75 73 72 2f 62 69 | 6e 3a 24 50 41 54 48 0a |:/usr/bi|n:$PATH.|
|00000390| 69 66 20 74 65 73 74 20 | 2d 66 20 27 63 74 69 6d |if test |-f 'ctim|
|000003a0| 65 2e 70 6c 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |e.pl'.th|en..echo|
|000003b0| 20 73 68 61 72 3a 20 22 | 77 69 6c 6c 20 6e 6f 74 | shar: "|will not|
|000003c0| 20 6f 76 65 72 2d 77 72 | 69 74 65 20 65 78 69 73 | over-wr|ite exis|
|000003d0| 74 69 6e 67 20 66 69 6c | 65 20 27 63 74 69 6d 65 |ting fil|e 'ctime|
|000003e0| 2e 70 6c 27 22 0a 65 6c | 73 65 0a 73 65 64 20 27 |.pl'".el|se.sed '|
|000003f0| 73 2f 5e 58 2f 2f 27 20 | 3c 3c 20 5c 53 48 41 52 |s/^X//' |<< \SHAR|
|00000400| 5f 45 4f 46 20 3e 20 27 | 63 74 69 6d 65 2e 70 6c |_EOF > '|ctime.pl|
|00000410| 27 0a 58 3b 23 20 63 74 | 69 6d 65 2e 70 6c 20 69 |'.X;# ct|ime.pl i|
|00000420| 73 20 61 20 73 69 6d 70 | 6c 65 20 50 65 72 6c 20 |s a simp|le Perl |
|00000430| 65 6d 75 6c 61 74 69 6f | 6e 20 66 6f 72 20 74 68 |emulatio|n for th|
|00000440| 65 20 77 65 6c 6c 20 6b | 6e 6f 77 6e 20 63 74 69 |e well k|nown cti|
|00000450| 6d 65 28 33 43 29 20 66 | 75 6e 63 74 69 6f 6e 2e |me(3C) f|unction.|
|00000460| 0a 58 3b 23 0a 58 3b 23 | 20 57 61 6c 64 65 6d 61 |.X;#.X;#| Waldema|
|00000470| 72 20 4b 65 62 73 63 68 | 2c 20 46 65 64 65 72 61 |r Kebsch|, Federa|
|00000480| 6c 20 52 65 70 75 62 6c | 69 63 20 6f 66 20 47 65 |l Republ|ic of Ge|
|00000490| 72 6d 61 6e 79 2c 20 4e | 6f 76 65 6d 62 65 72 20 |rmany, N|ovember |
|000004a0| 31 39 38 38 0a 58 3b 23 | 20 6b 65 62 73 63 68 2e |1988.X;#| kebsch.|
|000004b0| 70 61 64 40 6e 69 78 70 | 62 65 2e 55 55 43 50 0a |pad@nixp|be.UUCP.|
|000004c0| 58 3b 23 20 4d 79 20 70 | 72 69 76 61 74 65 20 53 |X;# My p|rivate S|
|000004d0| 79 73 74 65 6d 3a 20 38 | 30 32 38 36 20 77 69 74 |ystem: 8|0286 wit|
|000004e0| 68 20 4d 69 63 72 6f 70 | 6f 72 74 20 53 79 73 74 |h Microp|ort Syst|
|000004f0| 65 6d 20 56 2f 41 54 20 | 32 2e 32 0a 58 3b 23 0a |em V/AT |2.2.X;#.|
|00000500| 58 3b 23 20 75 73 61 67 | 65 3a 0a 58 3b 23 0a 58 |X;# usag|e:.X;#.X|
|00000510| 3b 23 20 20 20 20 20 23 | 69 6e 63 6c 75 64 65 20 |;#     #|include |
|00000520| 3c 69 6d 70 6f 72 74 65 | 6e 76 2e 70 6c 3e 20 20 |<importe|nv.pl>  |
|00000530| 20 20 20 20 23 20 73 65 | 65 20 50 65 72 6c 20 6c |    # se|e Perl l|
|00000540| 69 62 72 61 72 79 2e 20 | 57 65 20 6e 65 65 64 20 |ibrary. |We need |
|00000550| 74 68 65 0a 58 3b 23 20 | 20 20 20 20 20 20 20 20 |the.X;# |        |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000570| 20 20 20 20 20 20 20 20 | 20 23 20 65 6e 76 69 72 |        | # envir|
|00000580| 6f 6e 6d 65 6e 74 20 76 | 61 72 69 61 62 6c 65 20 |onment v|ariable |
|00000590| 54 5a 2e 0a 58 3b 23 20 | 20 20 20 20 23 69 6e 63 |TZ..X;# |    #inc|
|000005a0| 6c 75 64 65 20 3c 63 74 | 69 6d 65 2e 70 6c 3e 20 |lude <ct|ime.pl> |
|000005b0| 20 20 20 20 20 20 20 20 | 20 23 20 73 65 65 20 74 |        | # see t|
|000005c0| 68 65 20 2d 50 20 61 6e | 64 20 2d 49 20 6f 70 74 |he -P an|d -I opt|
|000005d0| 69 6f 6e 20 69 6e 20 70 | 65 72 6c 2e 6d 61 6e 0a |ion in p|erl.man.|
|000005e0| 58 3b 23 20 20 20 20 20 | 24 44 61 74 65 20 3d 20 |X;#     |$Date = |
|000005f0| 64 6f 20 63 74 69 6d 65 | 28 74 69 6d 65 29 3b 0a |do ctime|(time);.|
|00000600| 58 0a 58 40 44 6f 57 20 | 3d 20 28 27 53 75 6e 27 |X.X@DoW |= ('Sun'|
|00000610| 2c 27 4d 6f 6e 27 2c 27 | 54 75 65 27 2c 27 57 65 |,'Mon','|Tue','We|
|00000620| 64 27 2c 27 54 68 75 27 | 2c 27 46 72 69 27 2c 27 |d','Thu'|,'Fri','|
|00000630| 53 61 74 27 29 3b 0a 58 | 40 4d 6f 59 20 3d 20 28 |Sat');.X|@MoY = (|
|00000640| 27 4a 61 6e 27 2c 27 46 | 65 62 27 2c 27 4d 61 72 |'Jan','F|eb','Mar|
|00000650| 27 2c 27 41 70 72 27 2c | 27 4d 61 79 27 2c 27 4a |','Apr',|'May','J|
|00000660| 75 6e 27 2c 27 4a 75 6c | 27 2c 27 41 75 67 27 2c |un','Jul|','Aug',|
|00000670| 27 53 65 70 27 2c 27 4f | 63 74 27 2c 27 4e 6f 76 |'Sep','O|ct','Nov|
|00000680| 27 2c 27 44 65 63 27 29 | 3b 0a 58 0a 58 73 75 62 |','Dec')|;.X.Xsub|
|00000690| 20 63 74 69 6d 65 20 7b | 0a 58 20 20 20 20 6c 6f | ctime {|.X    lo|
|000006a0| 63 61 6c 28 24 74 69 6d | 65 29 20 3d 20 40 5f 3b |cal($tim|e) = @_;|
|000006b0| 0a 58 20 20 20 20 6c 6f | 63 61 6c 28 24 73 65 63 |.X    lo|cal($sec|
|000006c0| 2c 20 24 6d 69 6e 2c 20 | 24 68 6f 75 72 2c 20 24 |, $min, |$hour, $|
|000006d0| 6d 64 61 79 2c 20 24 6d | 6f 6e 2c 20 24 79 65 61 |mday, $m|on, $yea|
|000006e0| 72 2c 20 24 77 64 61 79 | 2c 20 24 79 64 61 79 2c |r, $wday|, $yday,|
|000006f0| 20 24 69 73 64 73 74 29 | 3b 0a 58 20 20 20 20 6c | $isdst)|;.X    l|
|00000700| 6f 63 61 6c 28 24 64 61 | 74 65 29 3b 0a 58 0a 58 |ocal($da|te);.X.X|
|00000710| 20 20 20 20 28 24 73 65 | 63 2c 20 24 6d 69 6e 2c |    ($se|c, $min,|
|00000720| 20 24 68 6f 75 72 2c 20 | 24 6d 64 61 79 2c 20 24 | $hour, |$mday, $|
|00000730| 6d 6f 6e 2c 20 24 79 65 | 61 72 2c 20 24 77 64 61 |mon, $ye|ar, $wda|
|00000740| 79 2c 20 24 79 64 61 79 | 2c 20 24 69 73 64 73 74 |y, $yday|, $isdst|
|00000750| 29 0a 58 09 09 09 09 09 | 09 09 20 20 3d 20 6c 6f |).X.....|..  = lo|
|00000760| 63 61 6c 74 69 6d 65 28 | 24 74 69 6d 65 29 3b 0a |caltime(|$time);.|
|00000770| 58 20 20 20 20 24 79 65 | 61 72 20 2b 3d 20 28 24 |X    $ye|ar += ($|
|00000780| 79 65 61 72 20 3c 20 37 | 30 29 3f 20 32 30 30 30 |year < 7|0)? 2000|
|00000790| 3a 20 31 39 30 30 3b 0a | 58 20 20 20 20 24 64 61 |: 1900;.|X    $da|
|000007a0| 74 65 20 3d 20 73 70 72 | 69 6e 74 66 28 22 25 73 |te = spr|intf("%s|
|000007b0| 20 25 73 20 25 32 64 20 | 25 32 64 3a 25 30 32 64 | %s %2d |%2d:%02d|
|000007c0| 3a 25 30 32 64 20 25 73 | 20 25 34 64 5c 6e 22 2c |:%02d %s| %4d\n",|
|000007d0| 0a 58 09 20 20 20 20 20 | 20 24 44 6f 57 5b 24 77 |.X.     | $DoW[$w|
|000007e0| 64 61 79 5d 2c 20 24 4d | 6f 59 5b 24 6d 6f 6e 5d |day], $M|oY[$mon]|
|000007f0| 2c 20 24 6d 64 61 79 2c | 20 24 68 6f 75 72 2c 20 |, $mday,| $hour, |
|00000800| 24 6d 69 6e 2c 20 24 73 | 65 63 2c 20 24 54 5a 2c |$min, $s|ec, $TZ,|
|00000810| 20 24 79 65 61 72 29 3b | 0a 58 20 20 20 20 72 65 | $year);|.X    re|
|00000820| 74 75 72 6e 20 24 64 61 | 74 65 3b 0a 58 7d 0a 53 |turn $da|te;.X}.S|
|00000830| 48 41 52 5f 45 4f 46 0a | 69 66 20 74 65 73 74 20 |HAR_EOF.|if test |
|00000840| 31 30 32 35 20 2d 6e 65 | 20 22 60 77 63 20 2d 63 |1025 -ne| "`wc -c|
|00000850| 20 3c 20 27 63 74 69 6d | 65 2e 70 6c 27 60 22 0a | < 'ctim|e.pl'`".|
|00000860| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|00000870| 20 22 65 72 72 6f 72 20 | 74 72 61 6e 73 6d 69 74 | "error |transmit|
|00000880| 74 69 6e 67 20 27 63 74 | 69 6d 65 2e 70 6c 27 22 |ting 'ct|ime.pl'"|
|00000890| 20 27 28 73 68 6f 75 6c | 64 20 68 61 76 65 20 62 | '(shoul|d have b|
|000008a0| 65 65 6e 20 31 30 32 35 | 20 63 68 61 72 61 63 74 |een 1025| charact|
|000008b0| 65 72 73 29 27 0a 66 69 | 0a 66 69 0a 69 66 20 74 |ers)'.fi|.fi.if t|
|000008c0| 65 73 74 20 2d 66 20 27 | 63 74 65 73 74 27 0a 74 |est -f '|ctest'.t|
|000008d0| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|000008e0| 22 77 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 |"will no|t over-w|
|000008f0| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|00000900| 6c 65 20 27 63 74 65 73 | 74 27 22 0a 65 6c 73 65 |le 'ctes|t'".else|
|00000910| 0a 73 65 64 20 27 73 2f | 5e 58 2f 2f 27 20 3c 3c |.sed 's/|^X//' <<|
|00000920| 20 5c 53 48 41 52 5f 45 | 4f 46 20 3e 20 27 63 74 | \SHAR_E|OF > 'ct|
|00000930| 65 73 74 27 0a 58 65 76 | 61 6c 20 22 65 78 65 63 |est'.Xev|al "exec|
|00000940| 20 70 65 72 6c 20 2d 50 | 53 20 24 30 20 24 2a 22 | perl -P|S $0 $*"|
|00000950| 0a 58 09 69 66 20 24 72 | 75 6e 6e 69 6e 67 5f 75 |.X.if $r|unning_u|
|00000960| 6e 64 65 72 5f 73 6f 6d | 65 5f 73 68 65 6c 6c 3b |nder_som|e_shell;|
|00000970| 0a 58 3b 23 20 53 69 6d | 70 6c 65 20 54 65 73 74 |.X;# Sim|ple Test|
|00000980| 20 6f 66 20 63 74 69 6d | 65 2e 70 6c 20 20 57 61 | of ctim|e.pl  Wa|
|00000990| 6c 64 65 6d 61 72 20 4b | 65 62 73 63 68 0a 58 3b |ldemar K|ebsch.X;|
|000009a0| 23 0a 58 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 69 |#.X.X#in|clude <i|
|000009b0| 6d 70 6f 72 74 65 6e 76 | 2e 70 6c 3e 0a 58 23 69 |mportenv|.pl>.X#i|
|000009c0| 6e 63 6c 75 64 65 20 3c | 63 74 69 6d 65 2e 70 6c |nclude <|ctime.pl|
|000009d0| 3e 0a 58 0a 58 24 44 61 | 74 65 20 3d 20 64 6f 20 |>.X.X$Da|te = do |
|000009e0| 63 74 69 6d 65 28 74 69 | 6d 65 29 3b 0a 58 70 72 |ctime(ti|me);.Xpr|
|000009f0| 69 6e 74 20 24 44 61 74 | 65 3b 0a 53 48 41 52 5f |int $Dat|e;.SHAR_|
|00000a00| 45 4f 46 0a 69 66 20 74 | 65 73 74 20 31 38 38 20 |EOF.if t|est 188 |
|00000a10| 2d 6e 65 20 22 60 77 63 | 20 2d 63 20 3c 20 27 63 |-ne "`wc| -c < 'c|
|00000a20| 74 65 73 74 27 60 22 0a | 74 68 65 6e 0a 09 65 63 |test'`".|then..ec|
|00000a30| 68 6f 20 73 68 61 72 3a | 20 22 65 72 72 6f 72 20 |ho shar:| "error |
|00000a40| 74 72 61 6e 73 6d 69 74 | 74 69 6e 67 20 27 63 74 |transmit|ting 'ct|
|00000a50| 65 73 74 27 22 20 27 28 | 73 68 6f 75 6c 64 20 68 |est'" '(|should h|
|00000a60| 61 76 65 20 62 65 65 6e | 20 31 38 38 20 63 68 61 |ave been| 188 cha|
|00000a70| 72 61 63 74 65 72 73 29 | 27 0a 66 69 0a 66 69 0a |racters)|'.fi.fi.|
|00000a80| 65 78 69 74 20 30 0a 23 | 09 45 6e 64 20 6f 66 20 |exit 0.#|.End of |
|00000a90| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 0a 0a 0a |shell ar|chive...|
+--------+-------------------------+-------------------------+--------+--------+