diff options
| author | Dimitar Dimitrov <mitkofr@yahoo.fr> | 2021-05-12 17:03:41 +0100 |
|---|---|---|
| committer | Dimitar Dimitrov <mitkofr@yahoo.fr> | 2021-05-12 17:03:41 +0100 |
| commit | e0502c74dfd41988164c284290e86afca6d8c6ad (patch) | |
| tree | 7e6e36d1ea5d480e4e315a0bbe7004b2e479cffc | |
| parent | 07027c2ab83abd260147484e3c679878f69b02cf (diff) | |
| download | perlweeklychallenge-club-e0502c74dfd41988164c284290e86afca6d8c6ad.tar.gz perlweeklychallenge-club-e0502c74dfd41988164c284290e86afca6d8c6ad.tar.bz2 perlweeklychallenge-club-e0502c74dfd41988164c284290e86afca6d8c6ad.zip | |
Solution 1 to challenge 112
| -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 $_||'/' |