diff options
| author | Dave Cross <d.cross@fairfx.com> | 2019-10-14 09:30:38 +0100 |
|---|---|---|
| committer | Dave Cross <d.cross@fairfx.com> | 2019-10-14 09:30:38 +0100 |
| commit | d9bd7dda457dcd9c90387b9c89a7ffa2353532e6 (patch) | |
| tree | e3fd676fc88b19af8b55543a84900c2eab7fabb4 /challenge-030 | |
| parent | c8131ef302ed9a1ee79773aec04eb69aca287132 (diff) | |
| download | perlweeklychallenge-club-d9bd7dda457dcd9c90387b9c89a7ffa2353532e6.tar.gz perlweeklychallenge-club-d9bd7dda457dcd9c90387b9c89a7ffa2353532e6.tar.bz2 perlweeklychallenge-club-d9bd7dda457dcd9c90387b9c89a7ffa2353532e6.zip | |
Challenge #30 Task #1
Diffstat (limited to 'challenge-030')
| -rw-r--r-- | challenge-030/dave-cross/perl5/ch-1.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-030/dave-cross/perl5/ch-1.pl b/challenge-030/dave-cross/perl5/ch-1.pl new file mode 100644 index 0000000000..62be9ef012 --- /dev/null +++ b/challenge-030/dave-cross/perl5/ch-1.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use feature 'say'; + +use Time::Piece; + +for (2019 .. 2100) { + my $tp = Time::Piece->strptime($_ . '1225', '%Y%m%d'); + say $tp->strftime('%A %d %b %Y') if $tp->day eq 'Sun'; +} |