From 0d5b38b5b237d57c17065b5b3af08c7e7f5dc3ed Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Mon, 17 Jun 2019 18:53:19 +0200
Subject: [013#1]

---
 013/ch1.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 013/ch1.pl

(limited to '013/ch1.pl')

diff --git a/013/ch1.pl b/013/ch1.pl
new file mode 100755
index 0000000..4a436cb
--- /dev/null
+++ b/013/ch1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+#
+# Write a script to print the date of last Friday of every month of a given year
+################################################################################
+
+use strict;
+use warnings;
+
+use Time::Local qw<timelocal>;
+
+die "Usage: $0 <year>\n" unless @ARGV == 1;
+my $year = shift;
+
+my %last_dom = (
+    0 => 31, 1 => 28, 2 => 31, 3 => 30, 4 => 31, 5 => 30,
+    6 => 31, 7 => 31, 8 => 30, 9 => 31, 10 => 30, 11 => 31
+    );
+
+foreach my $month (0..11) {
+    my $last_day = $last_dom{$month};
+    my $last_wday = (localtime timelocal(0, 0, 0, $last_day, $month, $year))[6];
+    my $last_friday = $last_day - $last_wday + ($last_wday >= 5 ? 5 : -2);
+    printf "%d/%02d/%d\n", $year, $month+1, $last_friday;
+}
-- 
cgit v1.2.3