Help for this page

Select Code to Download


  1. or download this
    use File::Find::Rule qw/ find rule /;
my $gonerDirs = rule(
...
    any => $keeperFiles ,
    in => \@startdirs,
);
  2. or download this
    my @files  = rule()->or(
## !IMPORTANT NOTE discard before prune with rule()/find()
...
)->in(
    @startdirs
);
  3. or download this
    sub worldWritable {
    my( $shortname, $path, $fullname ) = @_;
    ## $shortname == $_; 
...
    return 1 if $want;
    return 0 if not $want;
}