> Of course.
>
> #!/usr/bin/perl -l
>
> use File::Find;
> use warnings;
>
> #
> # ignore
> #
> find {
> preprocess => sub { grep $_ ne __FILE__, @_ },
> wanted => sub { print }
> }, ".";
>
> #
> # don't recurse
> #
> find sub {
> if ($_ eq __FILE__) { ++$File::Find::prune }
> print;
> }, ".";
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';
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
