Path: utzoo!attcan!uunet!samsung!uakari.primate.wisc.edu!ames!elroy.jpl.nasa.gov!cit-vax!ktl
From: ktl@wag240.caltech.edu (Kian-Tat Lim)
Newsgroups: comp.lang.perl
Subject: Re: A head start (was Re: reverse of localtime())
Message-ID: <14049@cit-vax.Caltech.Edu>
Date: 1 Mar 90 23:33:47 GMT
References: <1176@frankland-river.aaii.oz.au> <1990Feb28.160935.28518@iwarp.intel.com> <14036@cit-vax.Caltech.Edu>
Sender: news@cit-vax.Caltech.Edu
Reply-To: ktl@wag240.caltech.edu (Kian-Tat Lim)
Organization: California Institute of Technology, Pasadena, CA
Lines: 16
In-reply-to: ktl@wag240.caltech.edu (Kian-Tat Lim)

[Thoroughly embarrassed...]

There's a minor bug in the code I posted for local date to seconds
since GMT conversion.  The associative array %month should be renamed
to %mdays to be consistent with its usage.  Sorry!

For those interested, here's a quickie test to make sure it's working:

	do 'date2secs.pl' || die "Couldn't load file.\n";
	chop($date = `date`);
	print &date2secs($date)," ",time,"\n";

Of course, your `date` may not produce the same output ours does...

--
Kian-Tat Lim (ktl@wagvax.caltech.edu, KTL @ CITCHEM.BITNET, GEnie: K.LIM1)