From 12201178a5950eecd9537e642b1246011490b499 Mon Sep 17 00:00:00 2001 From: Epoch Qwert Date: Tue, 21 Oct 2014 12:49:50 -0500 Subject: updated rebuild.sh to work better with libexec and bin instead of just bin. added epochttpd 2 --- nocompile/bin/XuntilY | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100755 nocompile/bin/XuntilY (limited to 'nocompile/bin/XuntilY') diff --git a/nocompile/bin/XuntilY b/nocompile/bin/XuntilY new file mode 100755 index 0000000..f6cc672 --- /dev/null +++ b/nocompile/bin/XuntilY @@ -0,0 +1,18 @@ +#!/usr/pkg/bin/perl +$r=$ARGV[0]; +$s=$ARGV[1]; +$m=0; +$count=$ARGV[2]?$ARGV[2]:1; +for(;$l= and $count > 0;) { + if($m == 0) { + if($l =~ $r) { + $m=1; + print $l; + next; + }} + if($m == 1) { + print $l; + if($l =~ $s) { + $m=0; + $count--; +}}} -- cgit v1.2.3