RosettaCodeData/Task/System-time/Perl/system-time-2.pl

3 lines
166 B
Perl

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;
printf("%04d-%02d-%02d %02d:%02d:%02d\n", $year + 1900, $mon + 1, $mday, $hour, $min, $sec