用perl写个脚本，将指定目录下的所有文件内容中ABC替换成qwe，BBHB替换成bdsf，JHI替换成jifdjs。

可以使用 Perl 的文件处理模块 File::Find 和正则表达式来实现这个需求。

以下是一个示例代码：

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

my $dir = "/path/to/directory";  # 指定目录
my @extensions = qw(.txt .log);  # 指定要处理的文件扩展名
my %replacements = (
    'ABC' => 'qwe',
    'BBHB' => 'bdsf',
    'JHI' => 'jifdjs'
);

# 处理文件的子函数
sub process_file {
    my $filename = $_;
    my ($ext) = $filename =~ /(\.[^.]+)$/;
    return unless defined $ext && grep { $_ eq $ext } @extensions;
    print "Processing $filename\n";
    local ($_, $^I, @ARGV) = @_;
    while (<>) {
        s/$_/$replacements{$_}/g for keys %replacements;
        print;
    }
}

# 遍历目录并处理文件
find(\&process_file, $dir);

在这个示例中，我们使用了一个哈希表 `%replacements` 来存储要替换的字符串和它们的替换值。`File::Find` 模块的 `find` 函数用于遍历指定目录下的所有文件。我们定义了一个名为 `process_file` 的子函数来处理每个文件。在这个子函数中，我们首先检查文件的扩展名是否在指定的列表中，如果不在则跳过该文件。然后我们使用 `local` 语句将 `$_`、`$^I` 和 `@ARGV` 变量设置为文件的每一行，以便我们可以使用 `<>` 运算符来读取并处理文件。在处理每一行时，我们使用正则表达式和 `s///` 替换操作来将指定的字符串替换为它们的替换值。最后我们使用 `print` 函数输出处理后的文件内容。