如何使用File::Find仅搜索/Applications/Example-X类目录查找文件

Instead of scanning the entire /Applications directory (which is why your search is taking so long), we can narrow things down to only the Example-* directories right from the start. Here are two straightforward approaches to do this with File::Find:

Approach 1: Pre-filter the Directories First (Most Efficient) #

This method first grabs all the Example-* directories under /Applications, then uses those as the starting points for File::Find. This way, we never even touch unrelated directories.

use strict;
use warnings;
use File::Find;

# Define your target file and base directory
my $target = 'target.exe';
my $apps_root = '/Applications';
my @target_dirs;

# Grab all Example-* directories in /Applications
opendir(my $dir_handle, $apps_root) or die "Failed to open $apps_root: $!";
while (my $entry = readdir($dir_handle)) {
    # Skip hidden files/directories (like . and ..)
    next if $entry =~ /^\./;
    
    my $full_path = "$apps_root/$entry";
    # Only add directories that start with "Example-"
    push @target_dirs, $full_path if -d $full_path && $entry =~ /^Example-/;
}
closedir($dir_handle);

# Now search only those directories for target.exe
find(sub {
    # Check if the current file matches our target
    if ($_ eq $target) {
        print "Found match: $File::Find::name\n";
    }
}, @target_dirs);

Key Notes: #

• We use opendir/readdir to quickly filter the root /Applications directory, avoiding any unnecessary traversal.
• The -d check ensures we only add actual directories to our list.
• $File::Find::name gives you the full path to the found file, which is usually more useful than just $_ (the filename alone).

Approach 2: Use File::Find's preprocess Hook #

If you prefer to let File::Find handle the initial directory entry, you can use the preprocess callback to filter out non-matching directories before traversing them.

use strict;
use warnings;
use File::Find;

my $target = 'target.exe';

find({
    wanted => sub {
        if ($_ eq $target) {
            print "Found match: $File::Find::name\n";
        }
    },
    preprocess => sub {
        # Only keep entries that are directories starting with "Example-"
        return grep {
            -d "$File::Find::dir/$_" && /^Example-/
        } @_;
    }
}, '/Applications');

How This Works: #

• The preprocess function runs before File::Find traverses the contents of a directory.
• When we start at /Applications, preprocess filters the directory entries to only keep Example-* directories. All other entries are ignored, so File::Find never traverses them.

Which Approach to Choose? #

Both methods will drastically reduce your search time, but Approach 1 is slightly more efficient—it avoids even loading the non-matching entries from /Applications into memory. Either one will work great for your use case.

内容的提问来源于stack exchange，提问作者napple