Mercurial > repo

comparison bin/slashes @ 9075:c989a1669243

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<fizzie> revert 58b9ee8f97a7
author HackBot
date Sun, 25 Sep 2016 20:31:46 +0000
parents
children
comparison
equal deleted inserted replaced
9074:560a73f4f0a4 9075:c989a1669243
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 }