perl code for challenge 48-2

1 files changed, 23 insertions, 0 deletions

diff --git a/challenge-048/walt-mankowski/perl/ch-2.pl b/challenge-048/walt-mankowski/perl/ch-2.pl
new file mode 100644
index 0000000000..b7e51255a0
--- /dev/null
+++ b/challenge-048/walt-mankowski/perl/ch-2.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use feature qw(:5.30);
+use experimental qw(signatures);
+use DateTime;
+
+# TASK #2
+# Palindrome Dates
+
+# Write a script to print all Palindrome Dates between 2000 and
+# 2999. The format of date is mmddyyyy. For example, the first one was
+# on October 2, 2001 as it is represented as 10022001.
+
+for my $year (2000..2999) {
+    for my $month (1..12) {
+        my $dt = DateTime->new(year => $year, month => $month);
+        for my $day (1..$dt->month_length()) {
+            my $date = sprintf("%02d%02d%d", $month, $day, $year);
+            say $date if $date eq reverse($date);
+        }
+    }
+}