Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!bfmny0!tneff
From: tneff@bfmny0.BFM.COM (Tom Neff)
Newsgroups: comp.lang.perl
Subject: Re: Novice surprise
Message-ID: <22434654@bfmny0.BFM.COM>
Date: 12 Feb 91 05:24:41 GMT
References: <cbhl9z200VsnE1=K1b@andrew.cmu.edu> <11393@jpl-devvax.JPL.NASA.GOV>
Reply-To: tneff@bfmny0.BFM.COM (Tom Neff)
Lines: 17

In article <11393@jpl-devvax.JPL.NASA.GOV> lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:
>I think that most people avoid the problem by not using filenames beginning
>with + or >.  

It's not always up to us, is it!  Sometimes we need our Perl tools 
just to DEAL with the weird stuff other peoples' programs create.

>              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//</);