From 517cccfd3ccf75aab663b3ce820eae0479ed0400 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Fri, 13 Sep 2024 11:29:20 +0200
Subject: Solution to task 1

---
 challenge-286/jo-37/perl/ch-1.pl  | 7 +++++++
 challenge-286/jo-37/perl/ch-1a.sh | 7 +++++++
 2 files changed, 14 insertions(+)
 create mode 100755 challenge-286/jo-37/perl/ch-1.pl
 create mode 100755 challenge-286/jo-37/perl/ch-1a.sh

diff --git a/challenge-286/jo-37/perl/ch-1.pl b/challenge-286/jo-37/perl/ch-1.pl
new file mode 100755
index 0000000000..ad5d8fd247
--- /dev/null
+++ b/challenge-286/jo-37/perl/ch-1.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl -w0777
+
+use v5.12;
+seek DATA, 0, 0;
+say +(keys %{ {<DATA> =~ /(\S+)()/g} })[0];
+__DATA__
+Hello David!
diff --git a/challenge-286/jo-37/perl/ch-1a.sh b/challenge-286/jo-37/perl/ch-1a.sh
new file mode 100755
index 0000000000..9386ee22f8
--- /dev/null
+++ b/challenge-286/jo-37/perl/ch-1a.sh
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+# usage: ch-1.sh [N]
+# call ch-1.pl N times (default: 80), count the individual printed words
+# and sort by frequency
+
+for i in $(seq 1 ${1:-80}); do ./ch-1.pl; done | sort | uniq -c | sort -n
-- 
cgit