在perl中使用egrep并遍历目录

use File::Find;

sub process_file {
    my $file = $_;
    if (-f $file) {
        open(my $fh, '<', $file) or die "Cannot open file: $!";
        while (my $line = <$fh>) {
            if ($line =~ /pattern/) {  # 替换为你要搜索的模式
                print $line;
            }
        }
        close($fh);
    }
}

find(\&process_file, '/path/to/directory');  # 替换为你要遍历的目录路径