Perl sprintf YYYYMMDD sample

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);

Source: stackoverflow.com

Similar codes

0 vote208 views1 answer
Perl leading zeros formatting sprintf
Perl
0 vote216 views1 answer
Perl remove all whitespace
Perl
0 vote149 views1 answer
What is perl poetry
Perl
0 vote155 views1 answer
Perl split array into smaller arrays
Perl
0 vote220 views1 answer
Perl mechanize infinite scroll
Perl
0 vote89 views1 answer
What is the index number of the last element of an array with 9 elements?
Perl
0 vote223 views1 answer
Perl mechanize infinite scroll with attempt count
Perl
2 votes218 views1 answer
Perl lowercase
Perl
76 votes219 views6 answers
Download league of legends
Perl
0 vote158 views1 answer
Perl format decimal 2 places not rounding
Perl