使用perl编写抓出指定目录下的指定文件中具有关键字的行

在Perl中，你可以使用内置模块`File::Find`来遍历文件系统，同时结合`grep`函数来查找特定关键字。下面是一个简单的例子，假设你要查找`/path/to/directory`目录下所有.txt文件中包含关键字"example"的行：

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

my $dir_path = '/path/to/directory';
my $keyword = 'example';

find(\&wanted, $dir_path);

sub wanted {
    return unless -f;      # 只处理文件，不处理目录
    open my $fh, '<', $_ or die "Could not open file '$_': $!";
    while (my $line = <$fh>) {
        if ($line =~ /$keyword/) {     # 使用正则表达式匹配关键字
            print "$_->\n";          # 输出文件名和含有关键字的行
        }
    }
    close $fh;
}

当你运行这个脚本时，它会搜索指定目录及其子目录下的`.txt`文件，如果找到含有关键词的行，就将其打印出来。