Mercurial > repo

view src/ploki/examples/try.pk @ 11328:56b2bb1446bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<wob_jonas> perl -e open$h,"<",($f="wisdom/font");local$/;$_=<$h>;s/ \\S+sample\\.png// or die; if (1) { open $o,">",$f;print$o $_; } print;
author HackBot
date Wed, 17 Jan 2018 21:00:31 +0000
parents ac0403686959
children
line wrap: on
line source

#!../ploki
LET pat "foo{.*}bar"
LET i 0
FOR loop IF i < 2
	IF "afoo42bar" ?o~ pat
		"match \Vi -- \V\0
	ELSE
		"no match \Vi
	FI
	LET i += 1
	LET pat "{a}"
	NEXT loop
FI