From 250fa8ca4a1d6e96863a5074be1376503452b7c6 Mon Sep 17 00:00:00 2001 From: Steven Wilson Date: Fri, 29 Jul 2022 18:27:52 +0100 Subject: add solution week 175 task 1 --- challenge-175/steven-wilson/perl/ch-01.pl | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 challenge-175/steven-wilson/perl/ch-01.pl diff --git a/challenge-175/steven-wilson/perl/ch-01.pl b/challenge-175/steven-wilson/perl/ch-01.pl new file mode 100644 index 0000000000..15a456dcbe --- /dev/null +++ b/challenge-175/steven-wilson/perl/ch-01.pl @@ -0,0 +1,25 @@ +#!/usr/bin/env perl +# Week 175 Task 1 +# Write a script to list Last Sunday of every month in the given year. + +use strict; +use warnings; +use DateTime; + +my $year = $ARGV[0]; +my $dt = DateTime->new( year => $year, month => 1, day => 1 ); +my %sundays; + +while ( $year == $dt->year ) { + if ( $dt->dow == 7 ) { + $sundays{ $dt->mon } = $dt->day; + $dt->add( days => 7 ); + } + else { + $dt->add( days => 1 ); + } +} + +for my $month ( sort { $a <=> $b } keys %sundays ) { + printf( "$year-%02d-$sundays{$month}\n", $month ); +} -- cgit