James Kipp <[EMAIL PROTECTED]> writes:
>
> Thanks Steve.
> So I could use either one of these methods, like:
>
> # skip dirs with Profile
> find {
> preprocess => sub { grep !/Profile/, @_ },
> wanted => sub { print if ($File::Find::name =~ /.*\.pst$/) }
> }, 'f:/users/user1';
> -------
>
> or
> # don't recurse tree that matches pattern:
>
> find sub {
> if ($_ eq "DBM") { ++$File::Find::prune }
> print "$File::Find::name\n";
> }, 'f:/users/user1';
>
Exactly. (Those are much better than my examples ;)
--
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
