diff options
Diffstat (limited to 'nocompile/XuntilY')
-rwxr-xr-x | nocompile/XuntilY | 18 |
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--; -}}} |