Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: Want to format date and time

by 2teez (Priest)
on Nov 17, 2012 at 18:49 UTC ( #1004338=note: print w/replies, xml ) Need Help??

in reply to Want to format date and time

Hi Joyeux,
If I get you right, you probabily want to display your current date, in some format. If so, you can do like so:

use warnings; use strict; my ( $day, $month, $year ) = (localtime)[ 3 .. 5 ]; print sprintf "%s : %s : %s\n", $day, $month + 1, $year + 1900, $/; #OR use POSIX qw(strftime); print strftime "%d - %m - %Y\n", localtime; #OR use Time::localtime; my $tm = localtime; my $day = $tm->mday(); my $month = $tm->mon() + 1; my $year = $tm->year() + 1900; print sprintf "%s \\ %s \\ %s", $day, $month, $year;
You might also like to check this module on CPAN Date::Calc, Date::Manip

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1004338]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2018-01-18 12:13 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (211 votes). Check out past polls.