用perl脚本如果文本里面某行含有ADC，则替换ADC为BHU。

在Perl中，你可以使用内置的`s///`替換運算符来实现这个任务。以下是一个简单的脚本，它会读取文本文件，查找包含"ADC"的行并将其替换为"BHU"：

#!/usr/bin/perl
use strict;
use warnings;

# 打开文件进行读写操作
open(my $fh, 'r+', 'input.txt') or die "无法打开文件: $!";

# 遍历文件的每一行
while (my $line = <$fh>) {
    # 使用正则表达式查找并替换"ADC"
    $line =~ s/ADC/BHU/gi;  # i标志表示不区分大小写，g标志表示全局替换
    print $fh $line;          # 将修改后的行写回文件
}

close($fh) or warn "无法关闭文件: $!";
print "替换完成!\n";

在这个脚本中，`<$fh>`用于逐行读取文件内容，`$line =~ s/ADC/BHU/gi`则是对每行进行搜索和替换，如果找到"ADC"就会替换为"BHU"。注意，这里的`gi`是正则匹配模式，`g`表示全局匹配，`i`表示忽略大小写。