Re: [Boston.pm] a question

Those are the daylight savings time changes.

Duane.

> On Jan 29, 2017, at 1:51 PM, dan moylan <[email protected]> wrote:
> 
> 
> in fiddling with a perl script to calculate the variable
> dates dependent on the date of easter, using Time::Local, i
> got the wrong answers for shrove tuesday 47 and ash
> wednesday 46 days before easter.  this turned out to be what
> appears to me as an anomoly in Time::Local at 20170313 where
> the delta seconds between days was 3600 sec short.  a test
> script then found a corresponding anomoly at 20171106 where
> the delta seconds was 3600 sec long.  fwiw i attach the test
> script.  have i missed something obvious?
> 
> #! /usr/bin/perl
> # tsttme.pl
> # created 170129 by jdm3
> # revised 170129 by jdm3
> 
>  use strict;
>  use Time::Local;
> 
>  my ($dlt, $dte, $tme, $tmepre, $mth, $Mth, $day, $year, );
>  my (@dim, @mth, );
> 
>  $year = $ARGV[0];
>  if (! $year) {
>      printf ("enter the year, stupid.\n");
>      exit (0);
>  }
> 
>  @dim = qw (31 28 31 30 31 30 31 31 30 31 30 31);
>  @mth = (0 .. 11);
> 
>  if ($year%4 == 0) { $dim[1] = 29; }
> # printf ("feb: $dim[1]\n");
> 
>  $tmepre = &Time::Local::timelocal (0,0,0,31,11,$year-1901);
>  foreach $mth (@mth) {
>      foreach $day (1..$dim[$mth]) {
>          $tme = &Time::Local::timelocal (0,0,0,$day,$mth,$year-1900);
>          $dlt = $tme - $tmepre;
>        # printf ("$year$mth$day -- $dlt\n");
>          $day = sprintf ("%02d", $day);
>          $Mth = sprintf ("%02d", $mth+1);
>          if ($dlt != 86400) { printf ("$year$Mth$day -- $dlt\n"); }
>          $tmepre = $tme;
>      }
>  }
> 
> ##########################################################################
> 
> tia,
> ole dan
> 
> 
> j. daniel moylan
> 84 harvard ave
> brookline, ma 02446-6202
> 617-777-0207 (cel)
> [email protected]
> www.moylan.us
> [no html pls]
> 
> _______________________________________________
> Boston-pm mailing list
> [email protected]
> http://mail.pm.org/mailman/listinfo/boston-pm



Duane Bronson
[email protected] <mailto:[email protected]>
http://www.nerdlogic.com/ <http://www.nerdlogic.com/>
5 Goden St.
Belmont, MA 02478
617.515.2909