Re: Help with File::Find

[Steve Grazzini]

James Kipp <[EMAIL PROTECTED]> writes:
> Is there a way to get File::Find to TOTALLY ignore a directory?? 

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;
  }, ".";


HTH
-- 
Steve

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]