summaryrefslogtreecommitdiff
path: root/nocompile/XuntilY
diff options
context:
space:
mode:
Diffstat (limited to 'nocompile/XuntilY')
-rwxr-xr-xnocompile/XuntilY18
1 files changed, 0 insertions, 18 deletions
diff --git a/nocompile/XuntilY b/nocompile/XuntilY
deleted file mode 100755
index f6cc672..0000000
--- a/nocompile/XuntilY
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/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--;
-}}}