Altijd-september-datumbepaler
In nl.eeuwig.september
wordt regelmatig gebruik gemaakt van data ten opzichte van september
1993, bijvoorbeeld 1023 september 1993. Deze datum wordt gegenereerd
door het onderstaande 'Perlscript’ dat de datum ten opzichte van
1 september 1993 bepaalt.
Voor 1 september 1993 was er altijd een hoos van nieuwelingen op Usenet
rond de start van het nieuwe universiteitsjaar. Vanaf 1993 komen Internetproviders
voor particulieren op de markt zoals XS4ALL, maar ook America Online
(AOL), waardoor een continue stroom van nieuwelingen op gang is gekomen.
Dit was voor de Amerikaan Richard Holmes, een netlegend uit alt.fan.warlords
(in die dagen vooral bekend vanwege de beeldschermkunst gemaakt uit
lettertekens, het zogenaamde ASCII-art) de reden om een programma te
maken dat aan die begintijd refereert.
#!/usr/local/bin/perl
# sepdate, tnx to Rich Holmes,
courtesy to
# alt.fan.warlord
require "timelocal.pl";
if ($#ARGV == 2) {
$todmo = $ARGV[0] - 1;
$todda = $ARGV[1];
$todye = $ARGV[2];
$todti = &timelocal(0,0,0,$todda,$todmo,$todye);
}
elsif ($#ARGV == -1) {
$todti = time
}
else {
die 'usage: sepdate [day month
year]'
}
$septime = &timelocal(0,0,0,31,7,93);
$tdiff = $todti - $septime;
$days = int ($tdiff / (60
* 60 * 24));
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
= localtime(time);
printf ("%3s Sep %2d
%2.2d:%2.2d:%2.2d %3s 1993\n", (Sun,Mon,Tue,Wed,Thu,Fri,Sat
)[$wday],$days,$hour,$min,$sec,(EST,EDT)[$isdst]);
Te zien is dat
de variabele $septime, die voor de septembertijd staat, begint op twaalf
uur ‘s nachts op de seconde af in augustus. Vanwege de off-by-one-errors
telt het programma vanaf 1 september 1993.
© 1999 Margot Lagendijk