[EMAIL PROTECTED] wrote:
It looks like localtime() function returns both Date and time, I only want to get date. How can I do that in perl?
use strict; use POSIX;
my $date = strftime "%Y-%m-%d", localtime; print $date, "\n"; # or non-POSIX solution my @t = localtime; $date = sprintf "%02u-%02u-%02u", $t[5]+1900, $t[4]+1, $t[3]; print $date, "\n"; __END__ Don't cross-post to admin. -- ,-/- __ _ _ $Bill Luebkert ICQ=162126130 (_/ / ) // // DBE Collectibles Mailto:dbe@;todbe.com / ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/ _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
