diff options
| -rw-r--r-- | challenge-112/kurkale6ka/README | 1 | ||||
| -rw-r--r-- | challenge-112/kurkale6ka/perl/ch-1.pl | 21 |
2 files changed, 22 insertions, 0 deletions
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 $_||'/' |