Вопрос по формату даты

[hoochie]

Я формирую дату из переменных $year,$month,$day,$hour,$min,$sec следующим образом:

$result_datee=join " ",
(join ".",sprintf("2%03d", $year), sprintf("%02d",$month) , sprintf("%02d",$day),
(join ":", sprintf("%02d",$hour), sprintf("%02d",$min), sprintf("%02d",$sec));

Можно ли проще? Поделитесь опытом....

[arto]

perldoc POSIX | less -p strftime

[commander]

hoochie
#!/usr/bin/perl -w
use strict;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $result_datee=sprintf("%04d.%02d.%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);

[hoochie]

Сенкс