Path: utzoo!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!think.com!hsdndev!husc6!genrad!rep
From: rep@genrad.com (Pete Peterson)
Newsgroups: comp.lang.perl
Subject: Re: find2perl
Message-ID: <40887@genrad.UUCP>
Date: 5 Mar 91 12:43:56 GMT
References: <11674@jpl-devvax.JPL.NASA.GOV>
Sender: news@genrad.UUCP
Reply-To: rep@thor.genrad.COM (Pete Peterson)
Organization: GenRad, Inc., Concord, Mass.
Lines: 16

In article <11674@jpl-devvax.JPL.NASA.GOV> lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:
 >This is an alpha version of find2perl.  It spits out a perl script that
 >does the same thing (hopefully) as the corresponding find command.
 >
 >Usage:
 >
 >	find2perl . -name '*.bak' -print | perl
 >
 >This isn't thoroughly tested.  It does do -print0 and -eval.  It doesn't
 >do -ls or -cpio (yet).  It does try pretty hard to avoid unnecessary
 >stats.

OK, I give up.  I'll ask the dumb question.  Why does it do:
	        $pat = "*$pat*" unless $pat =~ tr/?*[//;

thus changing "find2perl . -name 'core'" into "find2perl . -name '*core*'"?