Mercurial > repo
annotate bin/slashes @ 12256:821155c00e34 draft
<fizzie> ` sed -e \'s|wisdom|bin|\' < ../bin/culprits > ../bin/cblprits; chmod a+x ../bin/cblprits
| author | HackEso <hackeso@esolangs.org> |
|---|---|
| date | Sat, 07 Dec 2019 23:36:22 +0000 |
| parents | c989a1669243 |
| children |
| rev | line source |
|---|---|
| 9075 | 1 #!/usr/bin/perl -w |
| 2 #By Ørjan Johansen, 2009-2012. This file is in the public domain. | |
| 3 | |
| 4 $| = 1; | |
| 5 my $l = 0; | |
| 6 | |
| 7 $_ = join '', <>; | |
| 8 while ($l < 512) { | |
| 9 if (s!^([^/\\]+)!! or s!^\\(.)!!s) { | |
| 10 $l += length($1); | |
| 11 print($1); | |
| 12 } | |
| 13 else { | |
| 14 if (s!^/((?:[^/\\]|\\.)*)/((?:[^/\\]|\\.)*)/!!s) { | |
| 15 my ($s,$d) = ($1,$2); | |
| 16 $s =~ s/\\(.)/$1/gs; | |
| 17 $d =~ s/\\(.)/$1/gs; | |
| 18 while (s/(?:\Q$s\E)/$d/) { | |
| 19 } | |
| 20 } | |
| 21 else { last; } | |
| 22 } | |
| 23 } |