Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!ccu.umanitoba.ca!herald.usask.ca!alberta!ubc-cs!uw-beaver!mit-eddie!wuarchive!zaphod.mps.ohio-state.edu!swrinde!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: ftw.pl (was Re: perl find)
Message-ID: <11596@jpl-devvax.JPL.NASA.GOV>
Date: 26 Feb 91 19:32:24 GMT
References: <1991Feb21.133315.25700@uvaarpa.Virginia.EDU> <1991Feb21.174657.3357@iwarp.intel.com> <1991Feb26.011953.3017@NCoast.ORG>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 11

In article <1991Feb26.011953.3017@NCoast.ORG> allbery@ncoast.ORG (Brandon S. Allbery KB8JRR) writes:
: (Yeah, this is the one that caused me to develop that *-hack for lists of
: lists.  Have you ever given any thought to how find has to do its thing?
: Especially in the presence of -o and !?  I ended up parsing the arguments into
: a list of predicate lists, then recursively running a predicate evaluator on
: each file and directory found.)

Why not just translate it to a Perl subroutine and eval that?  Recursion,
(), &&, || and ! available for free.

Larry