challenge-048/ruben-westerberg/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;
use Time::Seconds;


my $s=Time::Piece->strptime("2000-01-01","%Y-%M-%D");

my $e=Time::Piece->strptime("2999-01-01","%Y-%M-%D");
my $d=$s;
while ($d < $e) {
	my $str= $d->strftime("%m%d%Y");
	print "Date is a palindrone: ".$d->strftime."\n" if ($str eq reverse $str );
	$d+=ONE_DAY;
}