use Time::localtime; $tm = localtime; $Date= sprintf "%02d/%02d/%04d\n", ($tm->mon)+1, $tm->mday, $tm->year+1900; chop $Date; print $Date;
~~~~~~~~~~~~~~~~~~~~ Sibi John. Systems Adminstrator. ~~~~~~~~~~~~~~~~~~~~~ -----Original Message----- From: [EMAIL PROTECTED] [mailto:Cai_Lixin@;emc.com] Sent: Monday, November 11, 2002 4:51 PM To: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: How can I get the date of today in perl It looks like localtime() function returns both Date and time, I only want to get date. How can I do that in perl? Thanks Lixin _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
