summaryrefslogtreecommitdiff
path: root/nocompile/bin/XuntilY
diff options
context:
space:
mode:
authorEpoch Qwert <epoch@53flpnlls43fcguy.onion>2014-10-21 12:49:50 -0500
committerEpoch Qwert <epoch@53flpnlls43fcguy.onion>2014-10-21 12:53:12 -0500
commit12201178a5950eecd9537e642b1246011490b499 (patch)
treeb606b8f77af7d8b77a92ef5a3f7c905d66b97ad9 /nocompile/bin/XuntilY
parent1852f2d7d63c39d0fd97a2774d1bd16bf53ec67d (diff)
downloadmisc-12201178a5950eecd9537e642b1246011490b499.tar.gz
misc-12201178a5950eecd9537e642b1246011490b499.zip
updated rebuild.sh to work better with libexec and bin instead of just bin.
added epochttpd 2
Diffstat (limited to 'nocompile/bin/XuntilY')
-rwxr-xr-xnocompile/bin/XuntilY18
1 files changed, 18 insertions, 0 deletions
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=<stdin> 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--;
+}}}