如何检查一个文件的值是否包含在另一个文本文件中？(perl脚本)

#!/usr/bin/perl

use strict;
use warnings;

# 打开要检查的文件
open(my $check_file, '<', 'check_file.txt') or die "无法打开要检查的文件: $!";

# 打开包含目标值的文件
open(my $target_file, '<', 'target_file.txt') or die "无法打开包含目标值的文件: $!";

# 逐行读取要检查的文件
while (my $check_value = <$check_file>) {
    chomp $check_value;  # 去除行尾的换行符

    # 逐行读取包含目标值的文件
    while (my $target_value = <$target_file>) {
        chomp $target_value;  # 去除行尾的换行符

        # 检查值是否在目标文件中存在
        if (index($target_value, $check_value) != -1) {
            print "目标文件中包含要检查的值: $check_value\n";
            last;  # 找到匹配值后跳出内层循环
        }
    }

    # 将文件指针重置到包含目标值的文件的开头
    seek($target_file, 0, 0);
}

# 关闭文件
close($check_file);
close($target_file);