/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT71 / DATA

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 04 00 00 00 54 69 6d 65 | 04 00 00 00 54 69 6d 65 |....Time|....Time|
|00000010| 04 00 00 00 50 65 72 6c | 22 00 00 00 54 69 6d 65 |....Perl|"...Time|
|00000020| 20 46 75 6e 63 74 69 6f | 6e 73 20 74 6f 20 6d 61 | Functio|ns to ma|
|00000030| 6e 69 70 75 6c 61 74 65 | 20 64 61 74 65 73 4e 19 |nipulate| datesN.|
|00000040| 00 00 23 20 54 69 6d 65 | 2e 70 6c 20 2d 20 41 20 |..# Time|.pl - A |
|00000050| 70 65 72 6c 20 74 69 6d | 65 6c 69 62 72 61 72 79 |perl tim|elibrary|
|00000060| 2e 0d 0a 23 0d 0a 23 20 | 4e 4f 54 20 53 55 50 50 |...#..# |NOT SUPP|
|00000070| 4f 52 54 45 44 3a 20 4c | 4f 43 41 4c 45 53 20 6d |ORTED: L|OCALES m|
|00000080| 6f 6e 74 68 73 2f 77 65 | 65 6b 64 61 79 20 6e 61 |onths/we|ekday na|
|00000090| 6d 65 73 2e 0d 0a 23 20 | 20 20 20 20 20 20 20 20 |mes...# |        |
|000000a0| 20 20 20 20 20 20 20 74 | 7a 73 65 74 20 74 7a 73 |       t|zset tzs|
|000000b0| 65 74 77 61 6c 6c 0d 0a | 23 20 20 20 20 20 20 20 |etwall..|#       |
|000000c0| 20 20 20 20 20 20 20 20 | 20 73 74 72 66 74 69 6d |        | strftim|
|000000d0| 65 20 25 5a 20 25 55 20 | 25 57 0d 0a 23 0d 0a 23 |e %Z %U |%W..#..#|
|000000e0| 20 4c 4f 43 41 4c 45 53 | 20 76 61 72 69 6f 75 73 | LOCALES| various|
|000000f0| 20 66 6f 72 6d 61 74 73 | 0d 0a 23 0d 0a 23 20 43 | formats|..#..# C|
|00000100| 68 61 6e 67 65 20 74 68 | 69 73 20 74 6f 20 73 75 |hange th|is to su|
|00000110| 69 74 20 79 6f 75 72 20 | 6c 6f 63 61 6c 20 77 61 |it your |local wa|
|00000120| 79 2e 0d 0a 23 0d 0a 0d | 0a 20 20 40 4c 43 5f 41 |y...#...|.  @LC_A|
|00000130| 4d 50 4d 20 20 3d 20 28 | 27 61 6d 27 2c 27 70 6d |MPM  = (|'am','pm|
|00000140| 27 29 3b 0d 0a 20 20 24 | 4c 43 5f 44 41 54 45 20 |');..  $|LC_DATE |
|00000150| 20 3d 20 22 25 64 2f 25 | 6d 2f 25 79 22 20 3b 0d | = "%d/%|m/%y" ;.|
|00000160| 0a 20 20 24 4c 43 5f 54 | 49 4d 45 20 20 3d 20 22 |.  $LC_T|IME  = "|
|00000170| 25 54 22 20 3b 0d 0a 20 | 20 24 4c 43 5f 4c 44 54 |%T" ;.. | $LC_LDT|
|00000180| 46 20 20 3d 20 22 25 41 | 20 25 64 2e 20 25 42 20 |F  = "%A| %d. %B |
|00000190| 31 39 25 79 20 24 4c 43 | 5f 54 49 4d 45 22 20 3b |19%y $LC|_TIME" ;|
|000001a0| 0d 0a 0d 0a 23 20 0d 0a | 23 20 44 61 79 73 0d 0a |....# ..|# Days..|
|000001b0| 23 0d 0a 0d 0a 20 40 73 | 64 61 79 73 20 20 20 3d |#.... @s|days   =|
|000001c0| 20 28 27 53 75 6e 27 2c | 27 4d 6f 6e 27 2c 27 54 | ('Sun',|'Mon','T|
|000001d0| 75 65 27 2c 27 57 65 64 | 27 2c 27 54 68 75 27 2c |ue','Wed|','Thu',|
|000001e0| 27 46 72 69 27 2c 27 53 | 61 74 27 29 3b 0d 0a 20 |'Fri','S|at');.. |
|000001f0| 40 6c 64 61 79 73 20 20 | 20 3d 20 28 20 27 53 75 |@ldays  | = ( 'Su|
|00000200| 6e 64 61 79 27 2c 20 27 | 4d 6f 6e 64 61 79 27 2c |nday', '|Monday',|
|00000210| 20 27 54 75 65 73 64 61 | 79 27 2c 20 27 57 65 64 | 'Tuesda|y', 'Wed|
|00000220| 6e 65 73 64 61 79 27 2c | 20 27 54 68 75 72 73 64 |nesday',| 'Thursd|
|00000230| 61 79 27 2c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ay',..  |        |
|00000240| 20 20 20 20 27 46 72 69 | 64 61 79 27 2c 20 27 53 |    'Fri|day', 'S|
|00000250| 61 74 75 72 64 61 79 27 | 20 29 3b 0d 0a 23 0d 0a |aturday'| );..#..|
|00000260| 23 20 4d 6f 6e 74 68 73 | 0d 0a 23 0d 0a 0d 0a 20 |# Months|..#.... |
|00000270| 40 73 6d 6f 6e 74 68 73 | 20 3d 20 28 27 4a 61 6e |@smonths| = ('Jan|
|00000280| 27 2c 27 46 65 62 27 2c | 27 4d 61 72 27 2c 27 41 |','Feb',|'Mar','A|
|00000290| 70 72 27 2c 27 4d 61 79 | 27 2c 27 4a 75 6e 27 2c |pr','May|','Jun',|
|000002a0| 0d 0a 09 20 20 20 20 20 | 27 4a 75 6c 27 2c 27 41 |...     |'Jul','A|
|000002b0| 75 67 27 2c 27 53 65 70 | 27 2c 27 4f 63 74 27 2c |ug','Sep|','Oct',|
|000002c0| 27 4e 6f 76 27 2c 27 44 | 65 63 27 29 3b 0d 0a 20 |'Nov','D|ec');.. |
|000002d0| 40 6c 6d 6f 6e 74 68 73 | 20 3d 20 28 20 27 4a 61 |@lmonths| = ( 'Ja|
|000002e0| 6e 75 61 72 79 27 2c 20 | 27 46 65 62 72 75 61 72 |nuary', |'Februar|
|000002f0| 79 27 2c 20 27 4d 61 72 | 63 68 27 2c 20 27 41 70 |y', 'Mar|ch', 'Ap|
|00000300| 72 69 6c 27 2c 20 27 4d | 61 79 27 2c 20 27 4a 75 |ril', 'M|ay', 'Ju|
|00000310| 6e 65 27 2c 20 27 4a 75 | 6c 79 27 2c 0d 0a 20 20 |ne', 'Ju|ly',..  |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 20 20 27 41 75 67 |        |    'Aug|
|00000330| 75 73 74 27 2c 20 27 53 | 65 70 74 65 6d 62 65 72 |ust', 'S|eptember|
|00000340| 27 2c 20 27 4f 63 74 6f | 62 65 72 27 2c 20 27 4e |', 'Octo|ber', 'N|
|00000350| 6f 76 65 6d 62 65 72 27 | 2c 20 27 44 65 63 65 6d |ovember'|, 'Decem|
|00000360| 62 65 72 27 20 29 3b 0d | 0a 20 40 6d 64 61 79 73 |ber' );.|. @mdays|
|00000370| 20 20 20 3d 20 28 20 27 | 33 31 27 2c 20 27 32 38 |   = ( '|31', '28|
|00000380| 27 2c 20 27 33 31 27 2c | 20 27 33 30 27 2c 20 27 |', '31',| '30', '|
|00000390| 33 31 27 2c 20 27 33 30 | 27 2c 20 0d 0a 09 20 20 |31', '30|', ...  |
|000003a0| 20 20 20 20 27 33 31 27 | 2c 20 27 33 31 27 2c 20 |    '31'|, '31', |
|000003b0| 27 33 30 27 2c 20 27 33 | 31 27 2c 20 27 33 30 27 |'30', '3|1', '30'|
|000003c0| 2c 20 27 33 31 27 20 29 | 20 3b 0d 0a 0d 0a 23 0d |, '31' )| ;....#.|
|000003d0| 0a 23 20 44 69 66 66 65 | 72 65 6e 63 65 20 69 6e |.# Diffe|rence in|
|000003e0| 20 4c 4f 43 41 4c 54 49 | 4d 45 20 2f 20 47 4d 54 | LOCALTI|ME / GMT|
|000003f0| 0d 0a 23 0d 0a 20 20 40 | 64 69 66 66 74 69 6d 65 |..#..  @|difftime|
|00000400| 47 4d 54 4c 4f 43 41 4c | 20 3d 20 64 69 66 66 74 |GMTLOCAL| = difft|
|00000410| 69 6d 65 47 4d 54 4c 4f | 43 41 4c 20 3b 0d 0a 0d |imeGMTLO|CAL ;...|
|00000420| 0a 0d 0a 0d 0a 23 20 64 | 69 66 66 74 69 6d 65 47 |.....# d|ifftimeG|
|00000430| 4d 54 4c 4f 43 41 4c 20 | 3d 3e 20 47 4d 54 2e 73 |MTLOCAL |=> GMT.s|
|00000440| 65 63 6f 6e 64 73 20 2d | 20 4c 4f 43 41 4c 54 49 |econds -| LOCALTI|
|00000450| 4d 45 2e 73 65 63 6f 6e | 64 65 73 20 2c 20 62 69 |ME.secon|des , bi|
|00000460| 74 0d 0a 73 75 62 20 64 | 69 66 66 74 69 6d 65 47 |t..sub d|ifftimeG|
|00000470| 4d 54 4c 4f 43 41 4c 20 | 7b 0d 0a 20 20 6c 6f 63 |MTLOCAL |{..  loc|
|00000480| 61 6c 20 28 40 67 6d 29 | 20 3d 20 67 6d 74 69 6d |al (@gm)| = gmtim|
|00000490| 65 20 28 74 69 6d 65 29 | 3b 0d 0a 20 20 6c 6f 63 |e (time)|;..  loc|
|000004a0| 61 6c 20 28 40 6c 6f 29 | 20 3d 20 6c 6f 63 61 6c |al (@lo)| = local|
|000004b0| 74 69 6d 65 20 28 74 69 | 6d 65 29 3b 0d 0a 20 20 |time (ti|me);..  |
|000004c0| 6c 6f 63 61 6c 20 28 24 | 6a 75 6e 6b 29 20 3b 0d |local ($|junk) ;.|
|000004d0| 0a 20 20 24 6a 75 6e 6b | 20 3d 20 26 74 69 6d 65 |.  $junk| = &time|
|000004e0| 32 73 65 63 28 40 67 6d | 5b 30 5d 2c 40 67 6d 5b |2sec(@gm|[0],@gm[|
|000004f0| 31 5d 2c 40 67 6d 5b 32 | 5d 2c 40 67 6d 5b 37 5d |1],@gm[2|],@gm[7]|
|00000500| 29 20 20 2d 0d 0a 20 20 | 20 20 20 20 26 74 69 6d |)  -..  |    &tim|
|00000510| 65 32 73 65 63 28 40 6c | 6f 5b 30 5d 2c 40 6c 6f |e2sec(@l|o[0],@lo|
|00000520| 5b 31 5d 2c 40 6c 6f 5b | 32 5d 2c 40 6c 6f 5b 37 |[1],@lo[|2],@lo[7|
|00000530| 5d 29 20 3b 0d 0a 20 72 | 65 74 75 72 6e 20 28 73 |]) ;.. r|eturn (s|
|00000540| 71 72 74 28 24 6a 75 6e | 6b 20 2a 20 24 6a 75 6e |qrt($jun|k * $jun|
|00000550| 6b 29 20 2c 20 31 29 20 | 20 69 66 20 28 24 6a 75 |k) , 1) | if ($ju|
|00000560| 6e 6b 20 3c 20 30 20 29 | 20 3b 0d 0a 20 72 65 74 |nk < 0 )| ;.. ret|
|00000570| 75 72 6e 20 28 24 6a 75 | 6e 6b 2c 20 2d 31 29 20 |urn ($ju|nk, -1) |
|00000580| 3b 0d 0a 7d 0d 0a 0d 0a | 0d 0a 23 20 74 69 6d 65 |;..}....|..# time|
|00000590| 32 73 65 63 20 28 73 73 | 2c 6d 6d 2c 68 68 2c 64 |2sec (ss|,mm,hh,d|
|000005a0| 61 79 73 29 20 3d 3e 20 | 73 65 63 6f 6e 64 73 0d |ays) => |seconds.|
|000005b0| 0a 73 75 62 20 74 69 6d | 65 32 73 65 63 20 7b 0d |.sub tim|e2sec {.|
|000005c0| 0a 20 20 6c 6f 63 61 6c | 28 40 61 29 20 3d 20 40 |.  local|(@a) = @|
|000005d0| 5f 20 3b 0d 0a 20 20 28 | 40 61 5b 33 5d 20 2a 20 |_ ;..  (|@a[3] * |
|000005e0| 38 36 34 30 30 29 20 2b | 20 28 40 61 5b 32 5d 20 |86400) +| (@a[2] |
|000005f0| 2a 20 33 36 30 30 29 20 | 2b 20 28 40 61 5b 31 5d |* 3600) |+ (@a[1]|
|00000600| 20 2a 20 36 30 29 20 2b | 20 40 61 5b 30 5d 20 3b | * 60) +| @a[0] ;|
|00000610| 0d 0a 7d 0d 0a 0d 0a 0d | 0a 23 20 73 65 63 32 74 |..}.....|.# sec2t|
|00000620| 69 6d 65 20 28 73 63 6f | 6e 64 73 29 20 3d 3e 20 |ime (sco|nds) => |
|00000630| 73 73 2c 6d 6d 2c 68 68 | 2c 64 61 79 73 0d 0a 73 |ss,mm,hh|,days..s|
|00000640| 75 62 20 73 65 63 32 74 | 69 6d 65 20 7b 0d 0a 20 |ub sec2t|ime {.. |
|00000650| 20 20 6c 6f 63 61 6c 20 | 28 24 61 2c 24 62 2c 24 |  local |($a,$b,$|
|00000660| 63 2c 24 64 29 20 20 3b | 0d 0a 20 20 20 20 24 61 |c,$d)  ;|..    $a|
|00000670| 20 3d 20 69 6e 74 20 28 | 40 5f 5b 30 5d 20 25 20 | = int (|@_[0] % |
|00000680| 36 30 29 3b 0d 0a 20 20 | 20 20 24 62 20 3d 20 69 |60);..  |  $b = i|
|00000690| 6e 74 20 28 28 40 5f 5b | 30 5d 20 25 20 33 36 30 |nt ((@_[|0] % 360|
|000006a0| 30 29 20 2f 20 36 30 29 | 3b 0d 0a 20 20 20 20 24 |0) / 60)|;..    $|
|000006b0| 63 20 3d 20 69 6e 74 20 | 28 28 40 5f 5b 30 5d 20 |c = int |((@_[0] |
|000006c0| 25 20 28 32 34 2a 33 36 | 30 30 29 29 20 2f 20 33 |% (24*36|00)) / 3|
|000006d0| 36 30 30 29 3b 0d 0a 20 | 20 20 20 24 64 20 3d 20 |600);.. |   $d = |
|000006e0| 69 6e 74 20 28 40 5f 5b | 30 5d 20 2f 20 28 32 34 |int (@_[|0] / (24|
|000006f0| 20 2a 20 33 36 30 30 29 | 29 3b 0d 0a 20 20 20 20 | * 3600)|);..    |
|00000700| 72 65 74 75 72 6e 20 28 | 24 61 2c 24 62 2c 24 63 |return (|$a,$b,$c|
|00000710| 2c 24 64 29 3b 0d 0a 7d | 0d 0a 0d 0a 0d 0a 0d 0a |,$d);..}|........|
|00000720| 0d 0a 23 20 64 61 74 65 | 73 75 62 20 28 64 64 2c |..# date|sub (dd,|
|00000730| 6d 6d 2c 79 79 79 79 2c | 64 64 2c 6d 6d 2c 79 79 |mm,yyyy,|dd,mm,yy|
|00000740| 79 79 29 20 3d 3e 20 6e | 75 6d 62 65 72 20 6f 66 |yy) => n|umber of|
|00000750| 20 64 61 79 73 0d 0a 73 | 75 62 20 64 61 74 65 73 | days..s|ub dates|
|00000760| 75 62 20 7b 0d 0a 20 20 | 6c 6f 63 61 6c 28 40 61 |ub {..  |local(@a|
|00000770| 29 20 3d 20 40 5f 20 3b | 0d 0a 20 20 6c 6f 63 61 |) = @_ ;|..  loca|
|00000780| 6c 20 28 24 64 73 29 3b | 0d 0a 20 20 6c 6f 63 61 |l ($ds);|..  loca|
|00000790| 6c 20 28 24 64 31 2c 24 | 6d 31 2c 24 79 31 2c 24 |l ($d1,$|m1,$y1,$|
|000007a0| 64 32 2c 24 6d 32 2c 24 | 79 32 29 20 3d 20 40 5f |d2,$m2,$|y2) = @_|
|000007b0| 20 3b 0d 0a 20 20 72 65 | 74 75 72 6e 20 2d 31 20 | ;..  re|turn -1 |
|000007c0| 69 66 20 28 20 24 79 32 | 20 3c 20 24 79 31 20 29 |if ( $y2| < $y1 )|
|000007d0| 20 3b 0d 0a 20 20 72 65 | 74 75 72 6e 20 2d 31 20 | ;..  re|turn -1 |
|000007e0| 69 66 20 28 20 28 24 6d | 31 20 3c 20 31 29 20 20 |if ( ($m|1 < 1)  |
|000007f0| 7c 7c 20 28 24 6d 31 20 | 3e 20 31 32 29 20 20 7c ||| ($m1 |> 12)  ||
|00000800| 7c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 ||..     |        |
|00000810| 20 20 20 20 28 24 6d 32 | 20 3c 20 31 29 20 20 7c |    ($m2| < 1)  ||
|00000820| 7c 20 28 24 6d 32 20 3e | 20 31 32 29 20 29 20 3b || ($m2 >| 12) ) ;|
|00000830| 0d 0a 20 20 72 65 74 75 | 72 6e 20 2d 31 20 69 66 |..  retu|rn -1 if|
|00000840| 20 28 20 28 24 64 31 20 | 3c 20 31 29 20 20 7c 7c | ( ($d1 |< 1)  |||
|00000850| 20 28 24 64 32 20 3c 20 | 31 20 29 20 29 20 3b 0d | ($d2 < |1 ) ) ;.|
|00000860| 0a 20 20 72 65 74 75 72 | 6e 20 2d 31 20 69 66 20 |.  retur|n -1 if |
|00000870| 28 20 28 24 64 31 20 3e | 20 40 6d 64 61 79 73 5b |( ($d1 >| @mdays[|
|00000880| 24 6d 31 5d 29 20 26 26 | 20 28 26 64 79 73 69 7a |$m1]) &&| (&dysiz|
|00000890| 65 28 24 79 31 29 20 3d | 3d 20 33 36 35 29 29 3b |e($y1) =|= 365));|
|000008a0| 0d 0a 20 20 72 65 74 75 | 72 6e 20 2d 31 20 69 66 |..  retu|rn -1 if|
|000008b0| 20 28 20 28 24 64 32 20 | 3e 20 40 6d 64 61 79 73 | ( ($d2 |> @mdays|
|000008c0| 5b 24 6d 32 5d 29 20 26 | 26 20 28 26 64 79 73 69 |[$m2]) &|& (&dysi|
|000008d0| 7a 65 28 24 79 32 29 20 | 3d 3d 20 33 36 35 29 29 |ze($y2) |== 365))|
|000008e0| 3b 0d 0a 20 20 72 65 74 | 75 72 6e 20 2d 31 20 69 |;..  ret|urn -1 i|
|000008f0| 66 20 28 20 28 24 64 31 | 20 3e 20 32 39 29 20 26 |f ( ($d1| > 29) &|
|00000900| 26 20 28 26 64 79 73 69 | 7a 65 28 24 79 31 29 20 |& (&dysi|ze($y1) |
|00000910| 3d 3d 20 33 36 36 29 29 | 3b 0d 0a 20 20 72 65 74 |== 366))|;..  ret|
|00000920| 75 72 6e 20 2d 31 20 69 | 66 20 28 20 28 24 64 32 |urn -1 i|f ( ($d2|
|00000930| 20 3e 20 32 39 29 20 26 | 26 20 28 26 64 79 73 69 | > 29) &|& (&dysi|
|00000940| 7a 65 28 24 79 32 29 20 | 3d 3d 20 33 36 36 29 29 |ze($y2) |== 366))|
|00000950| 3b 0d 0a 0d 0a 20 20 24 | 6d 31 20 2d 2d 20 3b 20 |;....  $|m1 -- ; |
|00000960| 24 6d 32 20 2d 2d 20 3b | 20 23 20 57 65 20 75 73 |$m2 -- ;| # We us|
|00000970| 65 20 62 61 73 65 20 3d | 20 30 20 21 20 62 61 73 |e base =| 0 ! bas|
|00000980| 65 20 3d 20 31 20 3b 0d | 0a 0d 0a 20 20 23 20 44 |e = 1 ;.|...  # D|
|00000990| 41 59 53 0d 0a 20 20 24 | 64 73 20 3d 20 24 64 32 |AYS..  $|ds = $d2|
|000009a0| 20 2b 20 28 40 6d 64 61 | 79 73 5b 24 6d 31 5d 20 | + (@mda|ys[$m1] |
|000009b0| 2d 20 24 64 31 29 20 3b | 20 20 20 0d 0a 20 20 23 |- $d1) ;|   ..  #|
|000009c0| 20 4d 4f 4e 54 48 53 0d | 0a 20 20 24 6d 31 20 2b | MONTHS.|.  $m1 +|
|000009d0| 2b 20 3b 20 24 6d 32 20 | 2d 2d 20 3b 0d 0a 20 20 |+ ; $m2 |-- ;..  |
|000009e0| 69 66 20 28 24 6d 31 20 | 3c 20 31 33 29 20 7b 20 |if ($m1 |< 13) { |
|000009f0| 66 6f 72 20 28 24 6d 31 | 2e 2e 31 31 29 20 7b 20 |for ($m1|..11) { |
|00000a00| 24 64 73 20 2b 3d 20 40 | 6d 64 61 79 73 5b 24 5f |$ds += @|mdays[$_|
|00000a10| 5d 20 3b 7d 20 7d 0d 0a | 20 20 69 66 20 28 24 6d |] ;} }..|  if ($m|
|00000a20| 32 20 3e 20 30 20 29 20 | 7b 20 66 6f 72 20 28 30 |2 > 0 ) |{ for (0|
|00000a30| 2e 2e 24 6d 32 29 20 20 | 7b 20 24 64 73 20 2b 3d |..$m2)  |{ $ds +=|
|00000a40| 20 40 6d 64 61 79 73 5b | 24 5f 5d 20 3b 20 7d 20 | @mdays[|$_] ; } |
|00000a50| 7d 0d 0a 20 20 23 20 59 | 45 41 52 0d 0a 20 20 24 |}..  # Y|EAR..  $|
|00000a60| 79 31 20 2b 2b 20 3b 20 | 24 79 32 20 2d 2d 20 3b |y1 ++ ; |$y2 -- ;|
|00000a70| 0d 0a 20 20 66 6f 72 20 | 28 24 79 31 20 2e 2e 20 |..  for |($y1 .. |
|00000a80| 24 79 32 29 20 7b 20 24 | 64 73 20 2b 3d 20 26 64 |$y2) { $|ds += &d|
|00000a90| 79 73 69 7a 65 28 24 5f | 29 20 3b 20 7d 0d 0a 20 |ysize($_|) ; }.. |
|00000aa0| 20 72 65 74 75 72 6e 20 | 28 24 64 73 29 20 3b 0d | return |($ds) ;.|
|00000ab0| 0a 7d 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 23 20 63 74 |.}......|....# ct|
|00000ac0| 69 6d 65 20 28 5b 73 65 | 63 6f 6e 64 73 5d 29 20 |ime ([se|conds]) |
|00000ad0| 20 3d 3e 20 63 75 72 72 | 65 6e 74 20 64 61 74 65 | => curr|ent date|
|00000ae0| 20 61 6e 64 20 74 69 6d | 65 0d 0a 73 75 62 20 63 | and tim|e..sub c|
|00000af0| 74 69 6d 65 20 7b 20 23 | 20 0d 0a 20 20 6c 6f 63 |time { #| ..  loc|
|00000b00| 61 6c 28 24 74 6d 29 3b | 0d 0a 20 20 24 74 6d 20 |al($tm);|..  $tm |
|00000b10| 3d 20 20 74 69 6d 65 20 | 3b 0d 0a 20 20 24 74 6d |=  time |;..  $tm|
|00000b20| 20 3d 20 40 5f 5b 30 5d | 20 69 66 20 28 40 5f 5b | = @_[0]| if (@_[|
|00000b30| 30 5d 20 6e 65 20 27 27 | 29 20 3b 0d 0a 20 20 6c |0] ne ''|) ;..  l|
|00000b40| 6f 63 61 6c 20 28 40 61 | 29 20 3d 20 6c 6f 63 61 |ocal (@a|) = loca|
|00000b50| 6c 74 69 6d 65 28 24 74 | 6d 29 3b 20 0d 0a 20 20 |ltime($t|m); ..  |
|00000b60| 26 61 73 63 74 69 6d 65 | 28 40 61 29 3b 0d 0a 7d |&asctime|(@a);..}|
|00000b70| 0d 0a 0d 0a 0d 0a 0d 0a | 23 20 61 73 63 74 69 6d |........|# asctim|
|00000b80| 65 20 28 73 73 2c 6d 6d | 2c 68 68 2c 6d 64 61 79 |e (ss,mm|,hh,mday|
|00000b90| 2c 6d 6f 6e 2c 79 65 61 | 72 2c 77 64 61 79 29 20 |,mon,yea|r,wday) |
|00000ba0| 20 3d 3e 20 63 75 72 72 | 65 6e 74 20 64 61 74 65 | => curr|ent date|
|00000bb0| 20 61 6e 64 20 74 69 6d | 65 20 0d 0a 73 75 62 20 | and tim|e ..sub |
|00000bc0| 61 73 63 74 69 6d 65 20 | 7b 0d 0a 20 20 6c 6f 63 |asctime |{..  loc|
|00000bd0| 61 6c 20 28 40 61 29 20 | 3d 20 40 5f 20 3b 0d 0a |al (@a) |= @_ ;..|
|00000be0| 20 20 40 61 5b 35 5d 20 | 3d 20 31 39 30 30 20 2b |  @a[5] |= 1900 +|
|00000bf0| 20 40 61 5b 35 5d 20 69 | 66 20 28 40 61 5b 35 5d | @a[5] i|f (@a[5]|
|00000c00| 20 3c 20 31 39 30 30 29 | 20 3b 0d 0a 20 20 66 6f | < 1900)| ;..  fo|
|00000c10| 72 65 61 63 68 20 28 30 | 2e 2e 33 29 20 7b 40 61 |reach (0|..3) {@a|
|00000c20| 5b 24 5f 5d 20 3d 20 22 | 30 40 61 5b 24 5f 5d 22 |[$_] = "|0@a[$_]"|
|00000c30| 20 69 66 20 28 40 61 5b | 24 5f 5d 20 3c 20 31 30 | if (@a[|$_] < 10|
|00000c40| 20 29 20 3b 7d 0d 0a 20 | 20 22 24 73 64 61 79 73 | ) ;}.. | "$sdays|
|00000c50| 5b 40 61 5b 36 5d 5d 20 | 24 73 6d 6f 6e 74 68 73 |[@a[6]] |$smonths|
|00000c60| 5b 40 61 5b 34 5d 5d 20 | 40 61 5b 33 5d 20 40 61 |[@a[4]] |@a[3] @a|
|00000c70| 5b 32 5d 3a 40 61 5b 31 | 5d 24 6d 69 3a 40 61 5b |[2]:@a[1|]$mi:@a[|
|00000c80| 30 5d 20 40 61 5b 35 5d | 22 3b 20 0d 0a 7d 0d 0a |0] @a[5]|"; ..}..|
|00000c90| 0d 0a 0d 0a 0d 0a 23 20 | 64 79 73 69 7a 65 20 28 |......# |dysize (|
|00000ca0| 79 65 61 72 29 20 20 3d | 3e 20 6e 75 6d 62 65 72 |year)  =|> number|
|00000cb0| 20 6f 66 20 64 61 79 73 | 20 69 6e 20 79 65 61 72 | of days| in year|
|00000cc0| 20 7c 7c 20 2d 31 0d 0a | 73 75 62 20 64 79 73 69 | || -1..|sub dysi|
|00000cd0| 7a 65 20 7b 20 0d 0a 20 | 20 6c 6f 63 61 6c 28 24 |ze { .. | local($|
|00000ce0| 79 2c 24 79 72 29 20 3d | 20 28 40 5f 5b 30 5d 2c |y,$yr) =| (@_[0],|
|00000cf0| 33 36 35 29 20 3b 0d 0a | 20 20 72 65 74 75 72 6e |365) ;..|  return|
|00000d00| 20 2d 31 20 69 66 20 28 | 24 79 20 3c 20 30 20 29 | -1 if (|$y < 0 )|
|00000d10| 20 3b 0d 0a 20 20 72 65 | 74 75 72 6e 20 33 34 37 | ;..  re|turn 347|
|00000d20| 20 69 66 20 28 24 79 20 | 3d 3d 20 31 37 35 32 29 | if ($y |== 1752)|
|00000d30| 3b 0d 0a 20 20 23 20 24 | 79 20 2b 3d 20 31 39 30 |;..  # $|y += 190|
|00000d40| 30 20 69 66 28 24 79 20 | 3c 20 31 39 37 30 29 20 |0 if($y |< 1970) |
|00000d50| 3b 0d 0a 20 20 24 79 72 | 20 3d 20 33 36 36 20 69 |;..  $yr| = 366 i|
|00000d60| 66 28 28 28 24 79 20 25 | 20 34 29 20 3d 3d 20 30 |f((($y %| 4) == 0|
|00000d70| 29 20 26 26 20 28 20 28 | 24 79 20 25 20 31 30 30 |) && ( (|$y % 100|
|00000d80| 29 20 7c 7c 20 28 28 24 | 79 20 25 20 34 30 30 29 |) || (($|y % 400)|
|00000d90| 3d 3d 30 29 20 29 29 20 | 3b 0d 0a 20 20 72 65 74 |==0) )) |;..  ret|
|00000da0| 75 72 6e 20 20 24 79 72 | 20 3b 0d 0a 7d 0d 0a 0d |urn  $yr| ;..}...|
|00000db0| 0a 0d 0a 0d 0a 23 20 20 | 44 6f 59 52 20 28 64 61 |.....#  |DoYR (da|
|00000dc0| 79 2c 6d 6f 6e 74 68 2c | 79 65 61 72 29 20 20 3d |y,month,|year)  =|
|00000dd0| 3e 20 64 61 79 6e 75 6d | 62 65 72 20 69 6e 20 79 |> daynum|ber in y|
|00000de0| 65 61 72 20 20 7c 7c 20 | 2d 31 0d 0a 73 75 62 20 |ear  || |-1..sub |
|00000df0| 44 6f 59 52 20 7b 20 23 | 20 64 61 79 2c 20 6d 6f |DoYR { #| day, mo|
|00000e00| 6e 74 68 2c 20 79 65 61 | 72 0d 0a 20 20 6c 6f 63 |nth, yea|r..  loc|
|00000e10| 61 6c 20 28 24 64 61 79 | 2c 24 6d 6f 6e 2c 24 79 |al ($day|,$mon,$y|
|00000e20| 65 61 72 2c 24 69 2c 24 | 6a 29 20 3d 20 28 40 5f |ear,$i,$|j) = (@_|
|00000e30| 5b 30 5d 2c 40 5f 5b 31 | 5d 2c 40 5f 5b 32 5d 2c |[0],@_[1|],@_[2],|
|00000e40| 30 2c 30 29 3b 0d 0a 20 | 20 72 65 74 75 72 6e 20 |0,0);.. | return |
|00000e50| 2d 31 20 69 66 20 28 24 | 64 61 79 20 3c 20 31 29 |-1 if ($|day < 1)|
|00000e60| 3b 0d 0a 20 20 72 65 74 | 75 72 6e 20 2d 31 20 69 |;..  ret|urn -1 i|
|00000e70| 66 20 28 28 24 64 61 79 | 20 3e 20 24 6d 64 61 79 |f (($day| > $mday|
|00000e80| 73 5b 24 6d 6f 6e 5d 29 | 20 26 26 20 28 26 64 79 |s[$mon])| && (&dy|
|00000e90| 73 69 7a 65 28 24 79 65 | 61 72 29 20 3d 3d 20 33 |size($ye|ar) == 3|
|00000ea0| 36 35 29 29 3b 0d 0a 20 | 20 72 65 74 75 72 6e 20 |65));.. | return |
|00000eb0| 2d 31 20 69 66 20 28 28 | 24 64 61 79 20 3e 20 32 |-1 if ((|$day > 2|
|00000ec0| 39 29 20 26 26 20 28 26 | 64 79 73 69 7a 65 28 24 |9) && (&|dysize($|
|00000ed0| 79 65 61 72 29 20 3d 3d | 20 33 36 36 29 29 3b 0d |year) ==| 366));.|
|00000ee0| 0a 20 20 24 6a 20 3d 20 | 28 28 24 6d 6f 6e 20 3e |.  $j = |(($mon >|
|00000ef0| 20 32 29 20 26 26 20 28 | 20 26 64 79 73 69 7a 65 | 2) && (| &dysize|
|00000f00| 20 28 24 79 65 61 72 29 | 20 3d 3d 20 33 36 36 29 | ($year)| == 366)|
|00000f10| 29 20 3f 20 31 20 3a 20 | 30 20 3b 0d 0a 20 20 66 |) ? 1 : |0 ;..  f|
|00000f20| 6f 72 28 24 69 3d 31 20 | 3b 20 24 69 20 3c 20 24 |or($i=1 |; $i < $|
|00000f30| 6d 6f 6e 20 3b 20 24 69 | 2b 2b 29 20 7b 20 24 6a |mon ; $i|++) { $j|
|00000f40| 20 2b 3d 20 24 6d 64 61 | 79 73 5b 24 69 2d 31 5d | += $mda|ys[$i-1]|
|00000f50| 20 3b 20 7d 0d 0a 20 20 | 72 65 74 75 72 6e 20 28 | ; }..  |return (|
|00000f60| 24 6a 20 2b 20 24 64 61 | 79 20 29 20 3b 0d 0a 7d |$j + $da|y ) ;..}|
|00000f70| 0d 0a 0d 0a 0d 0a 0d 0a | 23 20 6a 61 6e 31 20 28 |........|# jan1 (|
|00000f80| 79 65 61 72 29 20 20 3d | 3e 20 77 65 65 6b 64 61 |year)  =|> weekda|
|00000f90| 79 20 6f 66 20 6a 61 6e | 20 31 20 69 6e 20 79 65 |y of jan| 1 in ye|
|00000fa0| 61 72 0d 0a 73 75 62 20 | 6a 61 6e 31 20 7b 0d 0a |ar..sub |jan1 {..|
|00000fb0| 20 20 6c 6f 63 61 6c 20 | 28 24 79 72 2c 24 64 67 |  local |($yr,$dg|
|00000fc0| 29 20 3d 20 28 40 5f 5b | 30 5d 2c 30 2c 30 29 3b |) = (@_[|0],0,0);|
|00000fd0| 0d 0a 20 20 24 64 67 20 | 3d 20 34 2b 24 79 72 2b |..  $dg |= 4+$yr+|
|00000fe0| 28 24 79 72 2b 33 29 2f | 34 3b 0d 0a 20 20 69 66 |($yr+3)/|4;..  if|
|00000ff0| 20 28 24 79 72 20 3e 20 | 31 38 30 30 29 20 7b 20 | ($yr > |1800) { |
|00001000| 20 20 20 20 20 20 20 20 | 20 23 20 4a 75 6c 69 61 |        | # Julia|
|00001010| 6e 20 63 61 6c 20 72 65 | 67 75 61 6c 72 20 67 72 |n cal re|gualr gr|
|00001020| 65 67 6f 72 69 61 6e 20 | 68 61 76 0d 0a 20 20 20 |egorian |hav..   |
|00001030| 20 24 64 67 20 2d 3d 20 | 28 24 79 72 2d 31 37 30 | $dg -= |($yr-170|
|00001040| 31 29 2f 31 30 30 3b 20 | 20 20 23 20 6c 65 73 73 |1)/100; |  # less|
|00001050| 20 74 68 72 65 65 20 64 | 61 79 73 20 70 72 20 34 | three d|ays pr 4|
|00001060| 30 30 2e 0d 0a 20 20 20 | 20 24 64 67 20 2b 3d 20 |00...   | $dg += |
|00001070| 28 24 79 72 2d 31 36 30 | 31 29 2f 34 30 30 3b 0d |($yr-160|1)/400;.|
|00001080| 0a 20 20 7d 0d 0a 20 20 | 24 64 67 20 2b 3d 20 33 |.  }..  |$dg += 3|
|00001090| 20 69 66 28 24 79 72 20 | 3e 20 31 37 35 32 29 20 | if($yr |> 1752) |
|000010a0| 3b 20 23 20 54 68 65 20 | 79 65 61 72 20 31 37 35 |; # The |year 175|
|000010b0| 32 0d 0a 20 20 72 65 74 | 75 72 6e 20 28 24 64 67 |2..  ret|urn ($dg|
|000010c0| 20 25 20 37 29 3b 0d 0a | 7d 0d 0a 0d 0a 0d 0a 0d | % 7);..|}.......|
|000010d0| 0a 23 20 74 7a 73 65 74 | 20 20 3d 3e 20 4e 4f 54 |.# tzset|  => NOT|
|000010e0| 20 55 53 45 44 0d 0a 73 | 75 62 20 74 7a 73 65 74 | USED..s|ub tzset|
|000010f0| 20 7b 20 7d 0d 0a 0d 0a | 23 20 74 7a 73 65 74 77 | { }....|# tzsetw|
|00001100| 61 6c 6c 20 20 3d 3e 20 | 4e 4f 54 20 55 53 45 44 |all  => |NOT USED|
|00001110| 0d 0a 73 75 62 20 74 7a | 73 65 74 77 61 6c 6c 20 |..sub tz|setwall |
|00001120| 7b 20 7d 0d 0a 0d 0a 23 | 20 74 7a 6e 61 6d 65 20 |{ }....#| tzname |
|00001130| 20 3d 3e 20 54 69 6d 65 | 5a 6f 6e 65 6e 61 6d 65 | => Time|Zonename|
|00001140| 0d 0a 73 75 62 20 74 7a | 6e 61 6d 65 20 7b 0d 0a |..sub tz|name {..|
|00001150| 20 20 23 20 42 45 57 41 | 52 45 3a 20 41 20 74 72 |  # BEWA|RE: A tr|
|00001160| 75 6c 79 20 75 67 6c 79 | 20 68 61 63 6b 20 21 0d |uly ugly| hack !.|
|00001170| 0a 20 20 6c 6f 63 61 6c | 20 28 40 74 7a 29 20 3d |.  local| (@tz) =|
|00001180| 20 73 70 6c 69 74 28 2f | 5c 73 2b 2f 2c 60 64 61 | split(/|\s+/,`da|
|00001190| 74 65 60 29 20 3b 0d 0a | 20 20 72 65 74 75 72 6e |te`) ;..|  return|
|000011a0| 20 40 74 7a 5b 34 5d 20 | 3b 0d 0a 7d 0d 0a 0d 0a | @tz[4] |;..}....|
|000011b0| 0d 0a 23 20 74 69 6d 65 | 67 6d 20 28 73 73 2c 6d |..# time|gm (ss,m|
|000011c0| 6d 2c 68 68 2c 6d 64 61 | 79 2c 6d 6f 6e 2c 79 65 |m,hh,mda|y,mon,ye|
|000011d0| 61 72 29 20 20 3d 3e 20 | 20 73 65 63 6f 6e 64 73 |ar)  => | seconds|
|000011e0| 20 0d 0a 73 75 62 20 74 | 69 6d 65 67 6d 20 7b 0d | ..sub t|imegm {.|
|000011f0| 0a 20 6c 6f 63 61 6c 28 | 40 61 29 20 3d 20 40 5f |. local(|@a) = @_|
|00001200| 20 3b 0d 0a 20 40 61 5b | 35 5d 20 2b 3d 20 31 39 | ;.. @a[|5] += 19|
|00001210| 30 30 20 3b 0d 0a 20 6c | 6f 63 61 6c 28 24 64 79 |00 ;.. l|ocal($dy|
|00001220| 29 20 3d 20 26 64 61 74 | 65 73 75 62 28 31 2c 31 |) = &dat|esub(1,1|
|00001230| 2c 31 39 37 30 2c 40 61 | 5b 33 5d 2c 40 61 5b 34 |,1970,@a|[3],@a[4|
|00001240| 5d 2c 40 61 5b 35 5d 29 | 20 3b 0d 0a 20 23 20 70 |],@a[5])| ;.. # p|
|00001250| 72 69 6e 74 20 22 44 45 | 42 55 47 20 24 64 79 5c |rint "DE|BUG $dy\|
|00001260| 6e 22 3b 0d 0a 20 72 65 | 74 75 72 6e 20 26 74 69 |n";.. re|turn &ti|
|00001270| 6d 65 32 73 65 63 28 40 | 61 5b 30 5d 2c 40 61 5b |me2sec(@|a[0],@a[|
|00001280| 31 5d 2c 40 61 5b 32 5d | 2c 24 64 79 29 20 3b 0d |1],@a[2]|,$dy) ;.|
|00001290| 0a 7d 0d 0a 0d 0a 0d 0a | 23 20 74 69 6d 65 6c 6f |.}......|# timelo|
|000012a0| 63 61 6c 20 28 73 73 2c | 6d 6d 2c 68 68 2c 6d 64 |cal (ss,|mm,hh,md|
|000012b0| 61 79 2c 6d 6f 6e 2c 79 | 65 61 72 29 20 20 3d 3e |ay,mon,y|ear)  =>|
|000012c0| 20 20 73 65 63 6f 6e 64 | 73 20 0d 0a 73 75 62 20 |  second|s ..sub |
|000012d0| 74 69 6d 65 6c 6f 63 61 | 6c 20 7b 0d 0a 20 20 6c |timeloca|l {..  l|
|000012e0| 6f 63 61 6c 20 28 24 64 | 79 29 20 3d 20 26 74 69 |ocal ($d|y) = &ti|
|000012f0| 6d 65 67 6d 28 40 5f 29 | 3b 0d 0a 20 20 72 65 74 |megm(@_)|;..  ret|
|00001300| 75 72 6e 20 28 24 64 79 | 20 2b 20 28 40 64 69 66 |urn ($dy| + (@dif|
|00001310| 66 74 69 6d 65 47 4d 54 | 4c 4f 43 41 4c 5b 30 5d |ftimeGMT|LOCAL[0]|
|00001320| 20 2a 20 40 64 69 66 66 | 74 69 6d 65 47 4d 54 4c | * @diff|timeGMTL|
|00001330| 4f 43 41 4c 5b 31 5d 29 | 29 20 3b 20 0d 0a 7d 0d |OCAL[1])|) ; ..}.|
|00001340| 0a 0d 0a 0d 0a 23 20 57 | 65 65 6b 44 61 79 20 28 |.....# W|eekDay (|
|00001350| 64 61 79 2c 6d 6f 6e 74 | 68 2c 79 65 61 72 29 20 |day,mont|h,year) |
|00001360| 20 3d 3e 20 77 65 65 6b | 64 61 79 20 6f 66 20 64 | => week|day of d|
|00001370| 61 79 2e 6d 6f 6e 74 68 | 2e 79 65 61 72 20 0d 0a |ay.month|.year ..|
|00001380| 73 75 62 20 57 65 65 6b | 44 61 79 20 7b 0d 0a 20 |sub Week|Day {.. |
|00001390| 20 6c 6f 63 61 6c 20 28 | 24 64 61 79 2c 24 6d 6f | local (|$day,$mo|
|000013a0| 6e 2c 24 79 65 61 72 29 | 20 3d 20 28 40 5f 5b 30 |n,$year)| = (@_[0|
|000013b0| 5d 2c 40 5f 5b 31 5d 2c | 40 5f 5b 32 5d 29 3b 0d |],@_[1],|@_[2]);.|
|000013c0| 0a 20 20 6c 6f 63 61 6c | 20 28 24 64 73 29 20 3d |.  local| ($ds) =|
|000013d0| 20 26 44 6f 59 52 28 24 | 64 61 79 2c 24 6d 6f 6e | &DoYR($|day,$mon|
|000013e0| 2c 24 79 65 61 72 29 20 | 3b 0d 0a 20 20 72 65 74 |,$year) |;..  ret|
|000013f0| 75 72 6e 20 28 20 28 26 | 6a 61 6e 31 28 24 79 65 |urn ( (&|jan1($ye|
|00001400| 61 72 29 20 2b 20 24 64 | 73 2d 31 20 29 20 25 20 |ar) + $d|s-1 ) % |
|00001410| 37 20 29 20 3b 0d 0a 7d | 0d 0a 0d 0a 0d 0a 23 20 |7 ) ;..}|......# |
|00001420| 20 73 74 72 66 74 69 6d | 65 20 28 66 6d 74 73 74 | strftim|e (fmtst|
|00001430| 72 2c 73 73 2c 6d 6d 2c | 68 68 2c 6d 64 61 79 2c |r,ss,mm,|hh,mday,|
|00001440| 6d 6f 6e 2c 79 65 61 72 | 2c 77 64 61 79 2c 79 64 |mon,year|,wday,yd|
|00001450| 61 79 29 20 20 3d 3e 20 | 73 74 72 69 6e 67 20 0d |ay)  => |string .|
|00001460| 0a 73 75 62 20 73 74 72 | 66 74 69 6d 65 20 7b 0d |.sub str|ftime {.|
|00001470| 0a 20 20 23 0d 0a 20 20 | 23 20 46 6f 72 6d 61 74 |.  #..  |# Format|
|00001480| 73 20 6e 6f 74 20 69 6e | 63 6c 75 64 65 64 3a 20 |s not in|cluded: |
|00001490| 20 25 55 20 25 57 0d 0a | 20 20 23 0d 0a 20 20 6c | %U %W..|  #..  l|
|000014a0| 6f 63 61 6c 28 24 66 6d | 74 29 20 3d 20 20 73 68 |ocal($fm|t) =  sh|
|000014b0| 69 66 74 20 28 40 5f 29 | 3b 0d 0a 20 20 6c 6f 63 |ift (@_)|;..  loc|
|000014c0| 61 6c 28 40 61 29 20 3d | 20 28 40 5f 29 3b 0d 0a |al(@a) =| (@_);..|
|000014d0| 20 20 6c 6f 63 61 6c 28 | 40 62 29 20 3d 20 28 40 |  local(|@b) = (@|
|000014e0| 5f 29 3b 0d 0a 20 20 66 | 6f 72 65 61 63 68 20 28 |_);..  f|oreach (|
|000014f0| 30 2e 2e 37 29 20 7b 40 | 61 5b 24 5f 5d 20 3d 20 |0..7) {@|a[$_] = |
|00001500| 22 30 40 61 5b 24 5f 5d | 22 20 69 66 20 28 40 61 |"0@a[$_]|" if (@a|
|00001510| 5b 24 5f 5d 20 3c 20 31 | 30 20 29 20 3b 7d 0d 0a |[$_] < 1|0 ) ;}..|
|00001520| 20 20 66 6f 72 65 61 63 | 68 20 28 30 2e 2e 37 29 |  foreac|h (0..7)|
|00001530| 20 7b 40 62 5b 24 5f 5d | 20 3d 20 22 20 40 62 5b | {@b[$_]| = " @b[|
|00001540| 24 5f 5d 22 20 69 66 20 | 28 40 62 5b 24 5f 5d 20 |$_]" if |(@b[$_] |
|00001550| 3c 20 31 30 20 29 20 3b | 7d 0d 0a 20 20 6c 6f 63 |< 10 ) ;|}..  loc|
|00001560| 61 6c 28 24 61 6d 70 6d | 31 29 20 3d 20 28 40 61 |al($ampm|1) = (@a|
|00001570| 5b 32 5d 20 3e 20 31 32 | 29 20 3f 20 28 32 34 2d |[2] > 12|) ? (24-|
|00001580| 40 61 5b 32 5d 29 20 3a | 20 40 61 5b 32 5d 20 3b |@a[2]) :| @a[2] ;|
|00001590| 0d 0a 20 20 6c 6f 63 61 | 6c 28 24 61 6d 70 6d 32 |..  loca|l($ampm2|
|000015a0| 29 20 3d 20 28 40 62 5b | 32 5d 20 3e 20 31 32 29 |) = (@b[|2] > 12)|
|000015b0| 20 3f 20 28 32 34 2d 40 | 62 5b 32 5d 29 20 3a 20 | ? (24-@|b[2]) : |
|000015c0| 40 62 5b 32 5d 20 3b 0d | 0a 20 20 6c 6f 63 61 6c |@b[2] ;.|.  local|
|000015d0| 28 24 61 6d 70 6d 33 29 | 20 3d 20 28 40 62 5b 32 |($ampm3)| = (@b[2|
|000015e0| 5d 20 3e 20 31 32 29 20 | 3f 20 40 4c 43 5f 41 4d |] > 12) |? @LC_AM|
|000015f0| 50 4d 5b 31 5d 20 3a 20 | 40 4c 43 5f 41 4d 50 4d |PM[1] : |@LC_AMPM|
|00001600| 5b 30 5d 20 3b 0d 0a 20 | 20 6c 6f 63 61 6c 28 24 |[0] ;.. | local($|
|00001610| 79 64 61 79 29 20 3d 20 | 22 30 22 20 78 20 28 20 |yday) = |"0" x ( |
|00001620| 33 20 2d 20 6c 65 6e 67 | 74 68 20 28 40 61 5b 37 |3 - leng|th (@a[7|
|00001630| 5d 29 29 20 2e 20 40 61 | 5b 37 5d 20 3b 0d 0a 0d |])) . @a|[7] ;...|
|00001640| 0a 20 20 24 66 6d 74 20 | 3d 7e 20 73 2f 25 72 2f |.  $fmt |=~ s/%r/|
|00001650| 25 49 3a 25 4d 3a 25 53 | 20 25 70 2f 67 20 3b 0d |%I:%M:%S| %p/g ;.|
|00001660| 0a 20 20 24 66 6d 74 20 | 3d 7e 20 73 2f 25 52 2f |.  $fmt |=~ s/%R/|
|00001670| 25 48 3a 25 4d 2f 67 20 | 3b 0d 0a 20 20 24 66 6d |%H:%M/g |;..  $fm|
|00001680| 74 20 3d 7e 20 73 2f 25 | 54 2f 25 48 3a 25 4d 3a |t =~ s/%|T/%H:%M:|
|00001690| 25 53 2f 67 20 3b 0d 0a | 20 20 24 66 6d 74 20 3d |%S/g ;..|  $fmt =|
|000016a0| 7e 20 73 2f 25 43 2f 24 | 4c 43 5f 4c 44 54 46 2f |~ s/%C/$|LC_LDTF/|
|000016b0| 67 3b 20 0d 0a 0d 0a 20 | 20 24 66 6d 74 20 3d 7e |g; .... | $fmt =~|
|000016c0| 20 73 2f 25 61 2f 40 73 | 64 61 79 73 5b 40 61 5b | s/%a/@s|days[@a[|
|000016d0| 37 5d 5d 2f 67 20 3b 0d | 0a 20 20 24 66 6d 74 20 |7]]/g ;.|.  $fmt |
|000016e0| 3d 7e 20 73 2f 25 41 2f | 40 6c 64 61 79 73 5b 40 |=~ s/%A/|@ldays[@|
|000016f0| 61 5b 37 5d 5d 2f 67 20 | 3b 0d 0a 20 20 24 66 6d |a[7]]/g |;..  $fm|
|00001700| 74 20 3d 7e 20 73 2f 25 | 62 2f 40 73 6d 6f 6e 74 |t =~ s/%|b/@smont|
|00001710| 68 73 5b 40 61 5b 37 5d | 5d 2f 67 20 3b 0d 0a 20 |hs[@a[7]|]/g ;.. |
|00001720| 20 24 66 6d 74 20 3d 7e | 20 73 2f 25 42 2f 40 6c | $fmt =~| s/%B/@l|
|00001730| 6d 6f 6e 74 68 73 5b 40 | 61 5b 37 5d 5d 2f 67 20 |months[@|a[7]]/g |
|00001740| 3b 0d 0a 20 20 24 66 6d | 74 20 3d 7e 20 73 2f 25 |;..  $fm|t =~ s/%|
|00001750| 68 2f 40 73 6d 6f 6e 74 | 68 73 5b 40 61 5b 37 5d |h/@smont|hs[@a[7]|
|00001760| 5d 2f 67 20 3b 0d 0a 20 | 20 24 66 6d 74 20 3d 7e |]/g ;.. | $fmt =~|
|00001770| 20 73 2f 25 44 2f 40 61 | 5b 34 5d 40 61 5b 33 5d | s/%D/@a|[4]@a[3]|
|00001780| 40 61 5b 35 5d 2f 67 3b | 0d 0a 20 20 24 66 6d 74 |@a[5]/g;|..  $fmt|
|00001790| 20 3d 7e 20 73 2f 25 65 | 2f 40 62 5b 33 5d 2f 67 | =~ s/%e|/@b[3]/g|
|000017a0| 20 3b 0d 0a 20 20 24 66 | 6d 74 20 3d 7e 20 73 2f | ;..  $f|mt =~ s/|
|000017b0| 25 48 2f 40 61 5b 32 5d | 2f 67 20 3b 0d 0a 20 20 |%H/@a[2]|/g ;..  |
|000017c0| 24 66 6d 74 20 3d 7e 20 | 73 2f 25 49 2f 24 61 6d |$fmt =~ |s/%I/$am|
|000017d0| 70 6d 31 2f 67 20 3b 0d | 0a 20 20 24 66 6d 74 20 |pm1/g ;.|.  $fmt |
|000017e0| 3d 7e 20 73 2f 25 6a 2f | 24 79 64 61 79 2f 67 20 |=~ s/%j/|$yday/g |
|000017f0| 3b 0d 0a 20 20 24 66 6d | 74 20 3d 7e 20 73 2f 25 |;..  $fm|t =~ s/%|
|00001800| 6b 2f 40 62 5b 32 5d 2f | 67 20 3b 0d 0a 20 20 24 |k/@b[2]/|g ;..  $|
|00001810| 66 6d 74 20 3d 7e 20 73 | 2f 25 6c 2f 24 61 6d 70 |fmt =~ s|/%l/$amp|
|00001820| 6d 32 2f 67 20 3b 0d 0a | 20 20 24 66 6d 74 20 3d |m2/g ;..|  $fmt =|
|00001830| 7e 20 73 2f 25 6d 2f 40 | 61 5b 34 5d 2f 67 20 3b |~ s/%m/@|a[4]/g ;|
|00001840| 0d 0a 20 20 24 66 6d 74 | 20 3d 7e 20 73 2f 25 4d |..  $fmt| =~ s/%M|
|00001850| 2f 40 61 5b 31 5d 2f 67 | 20 3b 0d 0a 20 20 24 66 |/@a[1]/g| ;..  $f|
|00001860| 6d 74 20 3d 7e 20 73 2f | 25 6e 2f 5c 6e 2f 67 20 |mt =~ s/|%n/\n/g |
|00001870| 3b 0d 0a 20 20 24 66 6d | 74 20 3d 7e 20 73 2f 25 |;..  $fm|t =~ s/%|
|00001880| 70 2f 24 61 6d 70 6d 33 | 2f 67 20 3b 0d 0a 20 20 |p/$ampm3|/g ;..  |
|00001890| 24 66 6d 74 20 3d 7e 20 | 73 2f 25 53 2f 40 61 5b |$fmt =~ |s/%S/@a[|
|000018a0| 30 5d 2f 67 20 3b 0d 0a | 20 20 24 66 6d 74 20 3d |0]/g ;..|  $fmt =|
|000018b0| 7e 20 73 2f 25 74 2f 5c | 74 2f 67 20 3b 0d 0a 20 |~ s/%t/\|t/g ;.. |
|000018c0| 20 24 66 6d 74 20 3d 7e | 20 73 2f 25 77 2f 40 61 | $fmt =~| s/%w/@a|
|000018d0| 5b 36 5d 2f 67 20 3b 0d | 0a 20 20 24 66 6d 74 20 |[6]/g ;.|.  $fmt |
|000018e0| 3d 7e 20 73 2f 25 79 2f | 40 61 5b 35 5d 2f 67 20 |=~ s/%y/|@a[5]/g |
|000018f0| 3b 0d 0a 20 20 24 66 6d | 74 20 3d 7e 20 73 2f 25 |;..  $fm|t =~ s/%|
|00001900| 78 2f 24 4c 43 5f 44 41 | 54 45 2f 67 20 3b 0d 0a |x/$LC_DA|TE/g ;..|
|00001910| 20 20 24 66 6d 74 20 3d | 7e 20 73 2f 25 58 2f 24 |  $fmt =|~ s/%X/$|
|00001920| 4c 43 5f 54 49 4d 45 2f | 67 20 3b 0d 0a 20 20 24 |LC_TIME/|g ;..  $|
|00001930| 66 6d 74 20 3d 7e 20 73 | 2f 25 59 2f 31 39 40 61 |fmt =~ s|/%Y/19@a|
|00001940| 5b 35 5d 2f 67 20 3b 0d | 0a 20 20 24 66 6d 74 20 |[5]/g ;.|.  $fmt |
|00001950| 3d 7e 20 73 2f 25 5a 2f | 2f 67 20 3b 0d 0a 0d 0a |=~ s/%Z/|/g ;....|
|00001960| 20 20 24 66 6d 74 20 3d | 7e 20 73 2f 25 25 2f 25 |  $fmt =|~ s/%%/%|
|00001970| 2f 67 20 3b 0d 0a 20 20 | 72 65 74 75 72 6e 20 24 |/g ;..  |return $|
|00001980| 66 6d 74 20 3b 0d 0a 7d | 0d 0a 0d 0a 31 3b 0d 0a |fmt ;..}|....1;..|
|00001990| 03 00 00 00 4e 2f 41 03 | 00 00 00 4e 2f 41       |....N/A.|...N/A  |
+--------+-------------------------+-------------------------+--------+--------+