使用perl在无子文件夹的文件夹中搜索特定文件

use strict;
use warnings;

sub search_files {
    my ($dir, $pattern) = @_;
    
    opendir(my $dh, $dir) or die "Cannot open directory $dir: $!";
    my @files = readdir($dh);
    closedir($dh);
    
    foreach my $file (@files) {
        next if ($file eq '.' or $file eq '..');
        
        my $path = "$dir/$file";
        
        if (-f $path && $file =~ /$pattern/) {
            print "Found file: $path\n";
            # 可以在这里进行进一步的处理，如复制、移动、删除等操作
        }
    }
}

my $directory = '/path/to/directory';  # 替换为实际的文件夹路径
my $file_pattern = '.*\.txt';  # 替换为实际的文件名模式，如搜索以.txt结尾的文件

search_files($directory, $file_pattern);