Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!olivea!uunet!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Novice surprise
Message-ID: <11406@jpl-devvax.JPL.NASA.GOV>
Date: 12 Feb 91 18:13:50 GMT
References: <cbhl9z200VsnE1=K1b@andrew.cmu.edu> <11393@jpl-devvax.JPL.NASA.GOV> <22434654@bfmny0.BFM.COM>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 11

In article <22434654@bfmny0.BFM.COM> tneff@bfmny0.BFM.COM (Tom Neff) writes:
: Nah, too complicated.  Just
: 
: 	grep(ARGV,s//</);

Not complicated enough.  (Not to mention backwards.)  What if the filename
begins with &?  What if // invokes a previous pattern?  Try

	grep(s/.*/< $&\0/, @ARGV);

And that still doesn't handle leading whitespace.

By the way, /foo/ && s//bar/ is busted in 44, seemingly.  I'm looking at it.
/f../ && s//bar/ works right though.  Looks like the constant string optimizer
got me.

Larry