Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!convex!news
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Novice surprise
Message-ID: <1991Feb12.165848.18718@convex.com>
Date: 12 Feb 91 16:58:48 GMT
References: <cbhl9z200VsnE1=K1b@andrew.cmu.edu> <11393@jpl-devvax.JPL.NASA.GOV> <22434654@bfmny0.BFM.COM>
Sender: news@convex.com (news access account)
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Software Development, Richardson, TX
Lines: 32
Nntp-Posting-Host: pixel.convex.com

From the keyboard of tneff@bfmny0.BFM.COM (Tom Neff):
:>[Larry said]
:>              If you really want to write a bulletproof script, you might
:>put the following before the initial loop:
:>
:>for (@ARGV) { s#^([^/])#./$1#; s#$#\0#; }
:>while (<>) {...
:
:Nah, too complicated.  Just
:
:	grep(ARGV,s//</);

Hello?  Don't you mean

	grep(s//</, @ARGV);

It's kind of a pity perl doesn't flag this as an error.

And I would use s/^/</ myself -- I always think // will 
be a remembered /pattern_match/, although in s/// it doesn't
seem to me.  Maybe it only counts for m// things.  Larry?

Also, Larry's works on things that Tom Neff's doesn't: you
can't open a file named "-" nor any with trailing white space
unless you use Larry's quotation mechanism, or it's functional
equivalent, like

    grep(s#^([^/])(.*)#./$1$2\0#, @ARGV);

--tom
--
 "All things are possible, but not all expedient."  (in life, UNIX, and perl)