Merge pull request #3976 from PerlBoy1967/branch-for-challenge-110

Added a minimalistic solution for Task 2

1 files changed, 43 insertions, 0 deletions

diff --git a/challenge-110/perlboy1967/perl/ch-2a.pl b/challenge-110/perlboy1967/perl/ch-2a.pl
new file mode 100755
index 0000000000..46c1a8302d
--- /dev/null
+++ b/challenge-110/perlboy1967/perl/ch-2a.pl
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+# Perl Weekly Challenge - 110
+# - https://perlweeklychallenge.org/blog/perl-weekly-challenge-110/#TASK2
+#
+# Task 2 - Transpose File
+#
+# Author: Niels 'PerlBoy' van Dijke
+# 
+# *** Extra submission ***
+# Inspired by other solutions usage of '[split/,/]'
+# to find minimalistic 'sub transposeFile($)'
+#
+
+use v5.16;
+use strict;
+use warnings;
+
+use File::Basename qw(dirname);
+use File::Slurp;
+use Array::Transpose;
+
+use Test::More;
+use Test::Deep;
+
+# Prototype(s)
+sub transposeFile($);
+
+# Work relative from script directory
+chdir(dirname($0));
+
+cmp_deeply ([transposeFile('input2.txt')],
+            ['name,Mohammad,Joe,Julie,Cristina',
+             'age,45,20,35,10',
+             'sex,m,m,f,f']);
+
+done_testing;
+
+
+sub transposeFile($) {
+  map{join(',',@$_)}transpose[map{s/^\s*(.*?)\s*$/$1/;[split/,/]}read_file($_[0])];
+}
+