stumped... .

[Matt Emmerton]

> I've written scores of scripts to hack text files, but this
> one has me dead in the water.
>
> How can I delete all lines from /^PATTERN to EOF??
>
> ed - <<foo
>
> /^PATTERN
> (.,$)d
> w
> q
> foo
>
> or anything else I've tried doesn't do it.  I could do it in
> C/C++,but c'mon... !  Any solutions in sed, perl, or ed/ex?
>
> tia, everybody,
>
> gary

If I'm understanding your question correctly, this Perl script should do it.

#!/bin/perl

while (<>)
{
  if (/^PATTERN) { last; }
  print $_;
}

--
Matt Emmerton