From e0502c74dfd41988164c284290e86afca6d8c6ad Mon Sep 17 00:00:00 2001
From: Dimitar Dimitrov <mitkofr@yahoo.fr>
Date: Wed, 12 May 2021 17:03:41 +0100
Subject: Solution 1 to challenge 112

---
 challenge-112/kurkale6ka/README       |  1 +
 challenge-112/kurkale6ka/perl/ch-1.pl | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 challenge-112/kurkale6ka/README
 create mode 100644 challenge-112/kurkale6ka/perl/ch-1.pl

diff --git a/challenge-112/kurkale6ka/README b/challenge-112/kurkale6ka/README
new file mode 100644
index 0000000000..5760886ad3
--- /dev/null
+++ b/challenge-112/kurkale6ka/README
@@ -0,0 +1 @@
+Solution by kurkale6ka
diff --git a/challenge-112/kurkale6ka/perl/ch-1.pl b/challenge-112/kurkale6ka/perl/ch-1.pl
new file mode 100644
index 0000000000..9e5d37f74d
--- /dev/null
+++ b/challenge-112/kurkale6ka/perl/ch-1.pl
@@ -0,0 +1,21 @@
+#! /usr/bin/env perl
+
+# Canonical UNIX path
+#
+# one-liner versions:
+# -E'$_=pop;s#/\.?(?=(/|$))##g;1while s#/([^/]+/)?\Q..##;say$_||"/"'
+# -E'$_=pop;s#/\.?(?=(/|$))##g;{s#/([^/]+/)?\Q..##&&redo}say$_||"/"'
+
+use v5.22;
+use warnings;
+
+$_ = shift;
+
+# squeeze /s + remove final ones and get rid of /./
+s#/\.?(?=(/|$))##gn;
+
+# discard /dir/.. occurrences from path
+1 while s#/([^/]+/)?\Q..##n;
+# { redo if s#/([^/]+/)?\Q..##n }
+
+say $_||'/'
-- 
cgit