Mercurial > repo

diff lib/kps/strip.pl @ 12274:3c04e9ef7a3a draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<kspalaiologos> `` cp -rf /hackenv/tmp/asmbf-1.2.7/bin/* /hackenv/lib/kps/
author HackEso <hackeso@esolangs.org>
date Tue, 31 Dec 2019 17:47:30 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/kps/strip.pl	Tue Dec 31 17:47:30 2019 +0000
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+$_ = do { local $/; <> };
+do {
+	$l = length;
+	s/[\n\r\t ]+//g;
+	s/<>//g;
+	s/><//g;
+	s/\+-//g;
+	s/-\+//g;
+} while($l != length);
+print;