Time::Local, and the internal localtime().

use Time::Local;

my @days = qw(Sun Mon Tue Wed Thu Fri Sat);
my $time = timelocal(0,0,0,23,4,103);
my @parts = localtime($time);

print "$days[$parts[6]]\n";


Rob

-----Original Message-----
From: Nigel Peck - MIS Web Design [mailto:[EMAIL PROTECTED]
Sent: Monday, August 18, 2003 9:57 AM
To: perl beginners
Subject: Day of the week


Can someone please point me to the right module for getting the name of a
specified day.

e.g.

I say 'year:2003 month:5 day:23'

I get 'Friday'

Thanks
Nigel

MIS Web Design
http://www.miswebdesign.com/


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to