talwyn has asked for the wisdom of the Perl Monks concerning the following question:

Ok, I'm a bit tired.... I would like some help in making 
 my ($sec, $min, $hour, $monthday, $month, $year, $weekday, $yday, $is
+dst) = localtime ( time());
 my $changedate  = sprintf  "%4d-%02d-%02d %02d:%02d:%02d",    
       ($year + 1900),($month +1),$monthday,$hour,$min,$sec;

[download]
Just a bit shorter but still fairly obvious as to what I am doing. Any comments appreciated.

Replies are listed 'Best First'.
Re: Shorter Formating?
by Zaxo (Archbishop) on Aug 14, 2002 at 02:17 UTC

    &POSIX::strftime has all you want:

    use POSIX qw( strftime );
print strftime( '%Y-%m-%d %T', localtime);

    [download]

    See 'man 2 strftime' for all the format codes available. POSIX man page tells about portability and perlish concerns.

    Update: Shortened the format with %T; was %H:%M:%S.

    After Compline,
    Zaxo

[reply]
[d/l]
(jeffa) Re: Shorter Formating?
by jeffa (Bishop) on Aug 14, 2002 at 02:13 UTC 
    my @time = reverse ((localtime)[0..5]);
$time[0]+= 1900;
$time[1]+= 1;
my $changedate = sprintf  "%4d-%02d-%02d %02d:%02d:%02d", @time;

    [download]
    I think you can use mapcar to shorten it some more. Where's tye? ...

    jeffa

    L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
[reply]
[d/l]
Re: Shorter Formating?
by BrowserUk (Patriarch) on Aug 14, 2002 at 02:07 UTC

    A little shorter and less temp vars? 

    my @dt = localtime ( time());
my$changedate  = sprintf  "%4d-%02d-%02d %02d:%02d:%02d",
        ($dt[5] + 1900),($dt[4]+1), (@dt)[3,2,1,0];

    [download]
[reply]
[d/l]
Re: Shorter Formating?
by screamingeagle (Curate) on Aug 14, 2002 at 05:12 UTC
    well, i'm only being half-serious here :0)
    if you're using Oracle as a back-end : 
    select to_char(sysdate,'YYYY-MM-DD HH:MI:SS') from dual;

    [download]
    if you're using SQL Server , then it's even shorter : 
    select getdate()

    [download]
    can't get shorter than that, can u ? ;-)
    (I wouldnt recommend firing an sql query just to get the timestamp, though)
[reply]
[d/l]
[select]
Re: Shorter Formating?
by Steve_p (Priest) on Aug 14, 2002 at 11:16 UTC
    Try 
    use POSIX;
my $changedate = strftime "%Y-%m-%d %T", localtime();

    [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom