How to exclude action of Find::Find::find in subdirectories withknown names?

[vdvorkin]

I must pass through directory tree and to execute some action with
files, names of which described by regex. I need not do it in
directories SCCS and VVS, which can be in every subdirectory.

The following code works correctly, does not action ("THE ACTION") in
unwanted directories, but it pass through every subdirectory. I'd
would like that it will worked faster, and procedure "wanted" will not
step inside SCCS and VVS. I have tried for that purpose the
"untaint_pattern" and "untaint_skip" options but did not success.
Perhaps I used incorrect values. Or, I do not understand the task of
the options correctly.

Somebody can suggest to me the decision?

Thanks in advance,
--Vadim

use File::Find;
use vars qw/*name *dir *prune/;
*name = *File::Find::name;
*dir = *File::Find::dir;
sub wanted;
# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '.');

sub wanted { # $_ is file name
if ($dir !~ /\/SCCS\b/ && $dir !~ /\/VVS\b/)
{
THE ACTION...
}
}

 

[J. Gleixner]

I must pass through directory tree and to execute some action with
files, names of which described by regex. I need not do it in
directories SCCS and VVS, which can be in every subdirectory.

The following code works correctly, does not action ("THE ACTION") in
unwanted directories, but it pass through every subdirectory. I'd
would like that it will worked faster, and procedure "wanted" will not
step inside SCCS and VVS. I have tried for that purpose the
"untaint_pattern" and "untaint_skip" options but did not success.
Perhaps I used incorrect values. Or, I do not understand the task of
the options correctly.

Somebody can suggest to me the decision?

Thanks in advance,
--Vadim

use File::Find;
use vars qw/*name *dir *prune/;
*name = *File::Find::name;
*dir = *File::Find::dir;
sub wanted;
# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '.');

sub wanted { # $_ is file name
if ($dir !~ /\/SCCS\b/ && $dir !~ /\/VVS\b/)
{
THE ACTION...
}
}

Try the preprocess method. From the documentation: "...The code
can be used to sort the file/directory names alphabeti-
cally, numerically, or to filter out directory entries based on
their name alone. "

 

[Jim Gibson]

I must pass through directory tree and to execute some action with
files, names of which described by regex. I need not do it in
directories SCCS and VVS, which can be in every subdirectory.

The following code works correctly, does not action ("THE ACTION") in
unwanted directories, but it pass through every subdirectory. I'd
would like that it will worked faster, and procedure "wanted" will not
step inside SCCS and VVS. I have tried for that purpose the
"untaint_pattern" and "untaint_skip" options but did not success.
Perhaps I used incorrect values. Or, I do not understand the task of
the options correctly.

Somebody can suggest to me the decision?

Set the $File::Find:rune variable when you first visit an unwanted
directory, and don't specify the 'bydepth' option (untested):

use File::Find;
sub wanted;

find( {wanted => \&wanted}, '.');

sub wanted
{
if ( m{ / SCCS \z }x || m{ / VVS \z }x )
{
$File::Find:rune = 1;
}else{
# THE ACTION...
}
}

 

[vdvorkin]

Thanks a lot, J. Gleixner and Jim Gibson. The both ways are working
correctly.

--Vadim