[EMAIL PROTECTED] wrote: > I need to get a date and time format into 3 different > variables: > > Date format: 2004-09-09 # $date > > Time format: 9:00 or 15:00, etc # $time_now > > and the time 1 hour ago. So it it's 4 in the afternoon. I > need. > > Time 2 format: 15:00 # $time_hour_ago
use POSIX; my $time = time; my @d = localtime $time; my $date = strftime "%Y-%m-%d", @d; my $time_now = strftime "%H:%M:%S", @d; @d = localtime $time - 3600; my $time_hour_ago = strftime "%H:%M:%S", @d; print "date=$date, now=$time_now, hour ago = $time_hour_ago\n"; __END__ -- ,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED] (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/ -/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff) _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
