> 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
_______________________________________________
[EMAIL PROTECTED] mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "[EMAIL PROTECTED]"
