Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!usc!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.unix.questions
Subject: Re: Fuzzy grep?
Keywords: grep
Message-ID: <10264@jpl-devvax.JPL.NASA.GOV>
Date: 6 Nov 90 20:43:02 GMT
References: <242@locke.water.ca.gov> <10240@jpl-devvax.JPL.NASA.GOV> <32308@netnews.upenn.edu> <markd.657881866@sunchat>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 28

In article <markd.657881866@sunchat> MarkD@Aus.Sun.COM writes:
: kehoe@scotty.dccs.upenn.edu (Brendan Kehoe) writes:
: 
: >In <10240@jpl-devvax.JPL.NASA.GOV>, lwall@jpl-devvax.JPL.NASA.GOV writes:
: >>I sincerely doubt you're going to find a specialized tool to do that.
: 
: >  .. tons & tons of Perl code by its dad ..
: >>
: >>Or something like that...
: >>
: 
: > Hahahaha. This made my day. [Sad, but true.]
: 
: Agreed.  But what gets me is the number of different ways he manages to
: sneak in these dang Perl lessons! Just when I was about to Beta test my
: "Impending Perl lesson" detector, he goes and changes his posting
: patterns - sigh, maybe I should re-write my detector in Perl :-)

It'd be fairly trivial:

	#!/usr/bin/perl
	while (<>) {
	    /^:.*[?!]/ && warn "Impending Perl lesson!!!!\n";
	}

:-)

Larry