RosettaCodeData/Task/Date-format/Perl/date-format-1.pl

5 lines
129 B
Perl

use POSIX;
print strftime('%Y-%m-%d', 0, 0, 0, 10, 10, 107), "\n";
print strftime('%A, %B %d, %Y', 0, 0, 0, 10, 10, 107), "\n";