Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!ucsd!ucbvax!iwarp.intel.com!news
From: merlyn@iwarp.intel.com (Randal Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: comparing dates...
Message-ID: <1990Jun27.234601.6983@iwarp.intel.com>
Date: 27 Jun 90 23:46:01 GMT
References: <18107@fs2.NISC.SRI.COM>
Sender: news@iwarp.intel.com
Reply-To: merlyn@iwarp.intel.com (Randal Schwartz)
Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA
Lines: 33
In-Reply-To: cwilson@NISC.SRI.COM (Chan Wilson)

In article <18107@fs2.NISC.SRI.COM>, cwilson@NISC (Chan Wilson) writes:
| Since there appear to be people out there who delight in finding
| ways of 'elegantly' doing things in perl...
| 
| I've got dates, in the form of 'Jun 27 04:11:47' that I need to 
| compare to each other. (ala $date1 lt $date2, which won't work). 
| Has someone come up with a fairly easy solution to this?  

Something like this?

%monthmap = split(/(\d+)/, <<EOS);
Jan01Feb02Mar03Apr04May05Jun06Jul07Aug08Sep09Oct10Nov11Dec12
EOS

sub compare_dates { #
	local(@dates) = @_;
	local($[,$_) = 0;
	for (0..1) {
		$dates[$_] =~
		s/^(...) (\d\d) (\d\d):(\d\d):(\d\d)/$monthmap{$1}$2$3$4$5/;
		print "$_ is $dates[$_]\n";
	}
	$dates[0] - $dates[1];
}

print &compare_dates('Jun 27 04:11:47','Jul 09 11:22:33');

print q/Just another Perl hacker,/
-- 
/=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\
| on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III      |
| merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn |
\=Cute Quote: "Welcome to Portland, Oregon, home of the California Raisins!"=/