/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / lib / ctime.pl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 63 74 69 6d 65 2e | 70 6c 00 00 00 00 00 00 |..ctime.|pl......|
|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 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 c5 00 | 00 01 ac a6 eb de d5 a6 |........|........|
|00000060| eb de d5 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 1c 77 00 00 |........|.....w..|
|00000080| 3b 23 20 63 74 69 6d 65 | 2e 70 6c 20 69 73 20 61 |;# ctime|.pl is a|
|00000090| 20 73 69 6d 70 6c 65 20 | 50 65 72 6c 20 65 6d 75 | simple |Perl emu|
|000000a0| 6c 61 74 69 6f 6e 20 66 | 6f 72 20 74 68 65 20 77 |lation f|or the w|
|000000b0| 65 6c 6c 20 6b 6e 6f 77 | 6e 20 63 74 69 6d 65 28 |ell know|n ctime(|
|000000c0| 33 43 29 20 66 75 6e 63 | 74 69 6f 6e 2e 0d 3b 23 |3C) func|tion..;#|
|000000d0| 0d 3b 23 20 57 61 6c 64 | 65 6d 61 72 20 4b 65 62 |.;# Wald|emar Keb|
|000000e0| 73 63 68 2c 20 46 65 64 | 65 72 61 6c 20 52 65 70 |sch, Fed|eral Rep|
|000000f0| 75 62 6c 69 63 20 6f 66 | 20 47 65 72 6d 61 6e 79 |ublic of| Germany|
|00000100| 2c 20 4e 6f 76 65 6d 62 | 65 72 20 31 39 38 38 0d |, Novemb|er 1988.|
|00000110| 3b 23 20 6b 65 62 73 63 | 68 2e 70 61 64 40 6e 69 |;# kebsc|h.pad@ni|
|00000120| 78 70 62 65 2e 55 55 43 | 50 0d 3b 23 20 4d 6f 64 |xpbe.UUC|P.;# Mod|
|00000130| 69 66 69 65 64 20 4d 61 | 72 63 68 20 31 39 39 30 |ified Ma|rch 1990|
|00000140| 2c 20 46 65 62 20 31 39 | 39 31 20 74 6f 20 70 72 |, Feb 19|91 to pr|
|00000150| 6f 70 65 72 6c 79 20 68 | 61 6e 64 6c 65 20 74 69 |operly h|andle ti|
|00000160| 6d 65 7a 6f 6e 65 73 0d | 3b 23 20 20 24 52 43 53 |mezones.|;#  $RCS|
|00000170| 66 69 6c 65 3a 20 63 74 | 69 6d 65 2e 70 6c 2c 76 |file: ct|ime.pl,v|
|00000180| 20 24 24 52 65 76 69 73 | 69 6f 6e 3a 20 34 2e 30 | $$Revis|ion: 4.0|
|00000190| 2e 31 2e 31 20 24 24 44 | 61 74 65 3a 20 39 32 2f |.1.1 $$D|ate: 92/|
|000001a0| 30 36 2f 30 38 20 31 33 | 3a 33 38 3a 30 36 20 24 |06/08 13|:38:06 $|
|000001b0| 0d 3b 23 20 20 20 4d 61 | 72 69 6f 6e 20 48 61 6b |.;#   Ma|rion Hak|
|000001c0| 61 6e 73 6f 6e 20 28 68 | 61 6b 61 6e 73 6f 6e 40 |anson (h|akanson@|
|000001d0| 63 73 65 2e 6f 67 69 2e | 65 64 75 29 0d 3b 23 20 |cse.ogi.|edu).;# |
|000001e0| 20 20 4f 72 65 67 6f 6e | 20 47 72 61 64 75 61 74 |  Oregon| Graduat|
|000001f0| 65 20 49 6e 73 74 69 74 | 75 74 65 20 6f 66 20 53 |e Instit|ute of S|
|00000200| 63 69 65 6e 63 65 20 61 | 6e 64 20 54 65 63 68 6e |cience a|nd Techn|
|00000210| 6f 6c 6f 67 79 0d 3b 23 | 0d 3b 23 20 75 73 61 67 |ology.;#|.;# usag|
|00000220| 65 3a 0d 3b 23 0d 3b 23 | 20 20 20 20 20 23 69 6e |e:.;#.;#|     #in|
|00000230| 63 6c 75 64 65 20 3c 63 | 74 69 6d 65 2e 70 6c 3e |clude <c|time.pl>|
|00000240| 20 20 20 20 20 20 20 20 | 20 20 23 20 73 65 65 20 |        |  # see |
|00000250| 74 68 65 20 2d 50 20 61 | 6e 64 20 2d 49 20 6f 70 |the -P a|nd -I op|
|00000260| 74 69 6f 6e 20 69 6e 20 | 70 65 72 6c 2e 6d 61 6e |tion in |perl.man|
|00000270| 0d 3b 23 20 20 20 20 20 | 24 44 61 74 65 20 3d 20 |.;#     |$Date = |
|00000280| 26 63 74 69 6d 65 28 74 | 69 6d 65 29 3b 0d 0d 43 |&ctime(t|ime);..C|
|00000290| 4f 4e 46 49 47 3a 20 7b | 0d 20 20 20 20 70 61 63 |ONFIG: {|.    pac|
|000002a0| 6b 61 67 65 20 63 74 69 | 6d 65 3b 0d 0d 20 20 20 |kage cti|me;..   |
|000002b0| 20 40 44 6f 57 20 3d 20 | 28 27 53 75 6e 27 2c 27 | @DoW = |('Sun','|
|000002c0| 4d 6f 6e 27 2c 27 54 75 | 65 27 2c 27 57 65 64 27 |Mon','Tu|e','Wed'|
|000002d0| 2c 27 54 68 75 27 2c 27 | 46 72 69 27 2c 27 53 61 |,'Thu','|Fri','Sa|
|000002e0| 74 27 29 3b 0d 20 20 20 | 20 40 4d 6f 59 20 3d 20 |t');.   | @MoY = |
|000002f0| 28 27 4a 61 6e 27 2c 27 | 46 65 62 27 2c 27 4d 61 |('Jan','|Feb','Ma|
|00000300| 72 27 2c 27 41 70 72 27 | 2c 27 4d 61 79 27 2c 27 |r','Apr'|,'May','|
|00000310| 4a 75 6e 27 2c 0d 09 20 | 20 20 20 27 4a 75 6c 27 |Jun',.. |   'Jul'|
|00000320| 2c 27 41 75 67 27 2c 27 | 53 65 70 27 2c 27 4f 63 |,'Aug','|Sep','Oc|
|00000330| 74 27 2c 27 4e 6f 76 27 | 2c 27 44 65 63 27 29 3b |t','Nov'|,'Dec');|
|00000340| 0d 7d 0d 0d 73 75 62 20 | 63 74 69 6d 65 20 7b 0d |.}..sub |ctime {.|
|00000350| 20 20 20 20 70 61 63 6b | 61 67 65 20 63 74 69 6d |    pack|age ctim|
|00000360| 65 3b 0d 0d 20 20 20 20 | 6c 6f 63 61 6c 28 24 74 |e;..    |local($t|
|00000370| 69 6d 65 29 20 3d 20 40 | 5f 3b 0d 20 20 20 20 6c |ime) = @|_;.    l|
|00000380| 6f 63 61 6c 28 24 5b 29 | 20 3d 20 30 3b 0d 20 20 |ocal($[)| = 0;.  |
|00000390| 20 20 6c 6f 63 61 6c 28 | 24 73 65 63 2c 20 24 6d |  local(|$sec, $m|
|000003a0| 69 6e 2c 20 24 68 6f 75 | 72 2c 20 24 6d 64 61 79 |in, $hou|r, $mday|
|000003b0| 2c 20 24 6d 6f 6e 2c 20 | 24 79 65 61 72 2c 20 24 |, $mon, |$year, $|
|000003c0| 77 64 61 79 2c 20 24 79 | 64 61 79 2c 20 24 69 73 |wday, $y|day, $is|
|000003d0| 64 73 74 29 3b 0d 0d 20 | 20 20 20 23 20 44 65 74 |dst);.. |   # Det|
|000003e0| 65 72 6d 69 6e 65 20 77 | 68 61 74 20 74 69 6d 65 |ermine w|hat time|
|000003f0| 20 7a 6f 6e 65 20 69 73 | 20 69 6e 20 65 66 66 65 | zone is| in effe|
|00000400| 63 74 2e 0d 20 20 20 20 | 23 20 55 73 65 20 47 4d |ct..    |# Use GM|
|00000410| 54 20 69 66 20 54 5a 20 | 69 73 20 64 65 66 69 6e |T if TZ |is defin|
|00000420| 65 64 20 61 73 20 6e 75 | 6c 6c 2c 20 6c 6f 63 61 |ed as nu|ll, loca|
|00000430| 6c 20 74 69 6d 65 20 69 | 66 20 54 5a 20 75 6e 64 |l time i|f TZ und|
|00000440| 65 66 69 6e 65 64 2e 0d | 20 20 20 20 23 20 54 68 |efined..|    # Th|
|00000450| 65 72 65 27 73 20 6e 6f | 20 70 6f 72 74 61 62 6c |ere's no| portabl|
|00000460| 65 20 77 61 79 20 74 6f | 20 66 69 6e 64 20 74 68 |e way to| find th|
|00000470| 65 20 73 79 73 74 65 6d | 20 64 65 66 61 75 6c 74 |e system| default|
|00000480| 20 74 69 6d 65 7a 6f 6e | 65 2e 0d 0d 20 20 20 20 | timezon|e...    |
|00000490| 24 54 5a 20 3d 20 64 65 | 66 69 6e 65 64 28 24 45 |$TZ = de|fined($E|
|000004a0| 4e 56 7b 27 54 5a 27 7d | 29 20 3f 20 28 20 24 45 |NV{'TZ'}|) ? ( $E|
|000004b0| 4e 56 7b 27 54 5a 27 7d | 20 3f 20 24 45 4e 56 7b |NV{'TZ'}| ? $ENV{|
|000004c0| 27 54 5a 27 7d 20 3a 20 | 27 47 4d 54 27 20 29 20 |'TZ'} : |'GMT' ) |
|000004d0| 3a 20 27 27 3b 0d 20 20 | 20 20 28 24 73 65 63 2c |: '';.  |  ($sec,|
|000004e0| 20 24 6d 69 6e 2c 20 24 | 68 6f 75 72 2c 20 24 6d | $min, $|hour, $m|
|000004f0| 64 61 79 2c 20 24 6d 6f | 6e 2c 20 24 79 65 61 72 |day, $mo|n, $year|
|00000500| 2c 20 24 77 64 61 79 2c | 20 24 79 64 61 79 2c 20 |, $wday,| $yday, |
|00000510| 24 69 73 64 73 74 29 20 | 3d 0d 20 20 20 20 20 20 |$isdst) |=.      |
|00000520| 20 20 28 24 54 5a 20 65 | 71 20 27 47 4d 54 27 29 |  ($TZ e|q 'GMT')|
|00000530| 20 3f 20 67 6d 74 69 6d | 65 28 24 74 69 6d 65 29 | ? gmtim|e($time)|
|00000540| 20 3a 20 6c 6f 63 61 6c | 74 69 6d 65 28 24 74 69 | : local|time($ti|
|00000550| 6d 65 29 3b 0d 0d 20 20 | 20 20 23 20 48 61 63 6b |me);..  |  # Hack|
|00000560| 20 74 6f 20 64 65 61 6c | 20 77 69 74 68 20 27 50 | to deal| with 'P|
|00000570| 53 54 38 50 44 54 27 20 | 66 6f 72 6d 61 74 20 6f |ST8PDT' |format o|
|00000580| 66 20 54 5a 0d 20 20 20 | 20 23 20 4e 6f 74 65 20 |f TZ.   | # Note |
|00000590| 74 68 61 74 20 74 68 69 | 73 20 63 61 6e 27 74 20 |that thi|s can't |
|000005a0| 64 65 61 6c 20 77 69 74 | 68 20 61 6c 6c 20 74 68 |deal wit|h all th|
|000005b0| 65 20 65 73 6f 74 65 72 | 69 63 20 66 6f 72 6d 73 |e esoter|ic forms|
|000005c0| 2c 20 62 75 74 20 69 74 | 0d 20 20 20 20 23 20 64 |, but it|.    # d|
|000005d0| 6f 65 73 20 72 65 63 6f | 67 6e 69 7a 65 20 74 68 |oes reco|gnize th|
|000005e0| 65 20 6d 6f 73 74 20 63 | 6f 6d 6d 6f 6e 3a 20 5b |e most c|ommon: [|
|000005f0| 3a 5d 53 54 44 6f 66 66 | 5b 44 53 54 5b 6f 66 66 |:]STDoff|[DST[off|
|00000600| 5d 5b 2c 72 75 6c 65 5d | 5d 0d 0d 20 20 20 20 69 |][,rule]|]..    i|
|00000610| 66 28 24 54 5a 3d 7e 2f | 5e 28 5b 5e 3a 5c 64 2b |f($TZ=~/|^([^:\d+|
|00000620| 5c 2d 2c 5d 7b 33 2c 7d | 29 28 5b 2b 2d 5d 3f 5c |\-,]{3,}|)([+-]?\|
|00000630| 64 7b 31 2c 32 7d 28 3a | 5c 64 7b 31 2c 32 7d 29 |d{1,2}(:|\d{1,2})|
|00000640| 7b 30 2c 32 7d 29 28 5b | 5e 5c 64 2b 5c 2d 2c 5d |{0,2})([|^\d+\-,]|
|00000650| 7b 33 2c 7d 29 3f 2f 29 | 7b 0d 20 20 20 20 20 20 |{3,})?/)|{.      |
|00000660| 20 20 24 54 5a 20 3d 20 | 24 69 73 64 73 74 20 3f |  $TZ = |$isdst ?|
|00000670| 20 24 34 20 3a 20 24 31 | 3b 0d 20 20 20 20 7d 0d | $4 : $1|;.    }.|
|00000680| 20 20 20 20 24 54 5a 20 | 2e 3d 20 27 20 27 20 75 |    $TZ |.= ' ' u|
|00000690| 6e 6c 65 73 73 20 24 54 | 5a 20 65 71 20 27 27 3b |nless $T|Z eq '';|
|000006a0| 0d 0d 20 20 20 20 24 79 | 65 61 72 20 2b 3d 20 28 |..    $y|ear += (|
|000006b0| 24 79 65 61 72 20 3c 20 | 37 30 29 20 3f 20 32 30 |$year < |70) ? 20|
|000006c0| 30 30 20 3a 20 31 39 30 | 30 3b 0d 20 20 20 20 73 |00 : 190|0;.    s|
|000006d0| 70 72 69 6e 74 66 28 22 | 25 73 20 25 73 20 25 32 |printf("|%s %s %2|
|000006e0| 64 20 25 32 64 3a 25 30 | 32 64 3a 25 30 32 64 20 |d %2d:%0|2d:%02d |
|000006f0| 25 73 25 34 64 5c 6e 22 | 2c 0d 20 20 20 20 20 20 |%s%4d\n"|,.      |
|00000700| 24 44 6f 57 5b 24 77 64 | 61 79 5d 2c 20 24 4d 6f |$DoW[$wd|ay], $Mo|
|00000710| 59 5b 24 6d 6f 6e 5d 2c | 20 24 6d 64 61 79 2c 20 |Y[$mon],| $mday, |
|00000720| 24 68 6f 75 72 2c 20 24 | 6d 69 6e 2c 20 24 73 65 |$hour, $|min, $se|
|00000730| 63 2c 20 24 54 5a 2c 20 | 24 79 65 61 72 29 3b 0d |c, $TZ, |$year);.|
|00000740| 7d 0d 31 3b 0d 00 00 00 | 00 00 00 00 00 00 00 00 |}.1;....|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000790| 00 03 44 99 00 00 00 00 | 00 18 10 50 65 72 6c c9 |..D.....|...Perl.|
|000007a0| 45 6e 76 69 72 6f 6e 6d | 65 6e 74 03 00 03 42 36 |Environm|ent...B6|
|000007b0| 08 63 74 69 6d 65 2e 70 | 6c 00 02 00 00 00 54 45 |.ctime.p|l.....TE|
|000007c0| 58 54 4d 50 53 20 00 00 | 00 00 00 00 00 00 00 00 |XTMPS ..|........|
|000007d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 a6 ea b1 2a 00 00 | 06 c5 00 00 01 ac 00 0c |.....*..|........|
|00000800| 04 6f 70 65 6e 01 00 01 | 91 21 00 00 00 00 00 0a |.open...|.!......|
|00000810| 03 6f 63 74 00 01 8f 89 | 00 00 00 00 00 0c 04 6e |.oct....|.......n|
|00000820| 65 78 74 63 00 01 8d 59 | 00 00 00 00 00 0e 06 6d |extc...Y|.......m|
|00000830| 73 67 72 63 76 01 00 01 | 8b 5a 00 00 00 00 00 0e |sgrcv...|.Z......|
|00000840| 06 6d 73 67 73 6e 64 01 | 00 01 89 f5 00 00 00 00 |.msgsnd.|........|
|00000850| 00 0c 04 6b 65 79 73 6c | 00 01 5c c0 00 00 00 00 |...keysl|..\.....|
|00000860| 00 0c 04 6b 69 6c 6c 6c | 00 01 60 32 00 00 00 00 |...killl|..`2....|
|00000870| 00 0c 04 6c 61 73 74 6c | 00 01 62 76 00 00 00 00 |...lastl|..bv....|
|00000880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 6e 6f 77 |...H..Mo|naco.now|
|00000890| 6e 20 63 74 69 6d 65 28 | 33 43 29 20 66 75 6e 63 |n ctime(|3C) func|
|000008a0| 74 69 6f 6e 2e 0d 00 06 | 00 03 00 3c 00 24 01 dd |tion....|...<.$..|
|000008b0| 02 3d 00 3c 00 24 01 dd | 02 3d a6 eb a6 95 00 00 |.=.<.$..|.=......|
|000008c0| 03 0e 00 00 03 0e 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000008d0| 00 3c 00 24 01 dd 02 3d | 00 3c 00 24 01 dd 02 3d |.<.$...=|.<.$...=|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 41 |.....n..|.n...>.A|
|00000900| 62 20 0f 6e 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |b .n....|.>..MPSR|
|00000910| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 03 f0 ff ff 00 00 00 4c | 00 47 96 80 00 00 00 00 |.......L|.G......|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+