1 files changed, 18 insertions, 0 deletions
diff --git a/nocompile/XuntilY b/nocompile/XuntilY
new file mode 100755
index 0000000..f6cc672
--- /dev/null
+++ b/nocompile/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--;
+}}}