Mercurial > repo
annotate bin/slashes @ 8921:fa06ad5519f2
<oerjan> learn Tc is the abbreviation for Technetium, an element so sophisticated that it does not exist naturally.
| author | HackBot |
|---|---|
| date | Tue, 16 Aug 2016 03:45:26 +0000 |
| parents | c0aac9581038 |
| children |
| rev | line source |
|---|---|
| 5643 | 1 #!/usr/bin/perl -w |
|
6596
c0aac9581038
<oerjan> `` sed -i \'s/.rjan/\xc3\x98rjan/\' bin/slashes
HackBot
parents:
5643
diff
changeset
|
2 #By Ørjan Johansen, 2009-2012. This file is in the public domain. |
| 5643 | 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 } |