如何在SQL中查询单条记录内包含重复字符串值的记录？

没问题！在Perl环境下要找出Filters_Applied列里存在重复字符串的记录，其实可以通过拆分字符串、统计元素出现次数的思路来实现。下面给你两种实用的方法：

这种方法适合批量检测所有可能的重复值，逻辑清晰易懂：

• 先把每行的Filters_Applied字段按逗号加空格（, ）拆分，得到元素数组
• 用哈希表记录每个元素的出现次数
• 检查哈希表中是否有元素计数大于1，满足条件就输出对应记录

示例代码：

# 模拟业务数据，实际可从文件/数据库读取
my @records = (
    { record_num => 1, filter => 'yes', filters_applied => 'red, blue' },
    { record_num => 2, filter => 'yes', filters_applied => 'green' },
    { record_num => 3, filter => 'no', filters_applied => '' },
    { record_num => 4, filter => 'yes', filters_applied => 'red, red, blue' },
);

foreach my $record (@records) {
    my $applied_str = $record->{filters_applied};
    next if $applied_str eq ''; # 跳过空值记录

    my %count;
    # 拆分字符串，兼容逗号后可能的空格
    my @items = split /,\s*/, $applied_str;
    $count{$_}++ foreach @items;

    # 检查是否存在重复元素
    if (grep { $count{$_} > 1 } keys %count) {
        print "记录编号 $record->{record_num} 存在重复值：$applied_str\n";
    }
}

如果你只关心某个特定字符串（比如示例中的red）是否重复出现，可以用正则表达式更高效地实现：

foreach my $record (@records) {
    my $applied_str = $record->{filters_applied};
    next if $applied_str eq '';

    # 统计"red"的出现次数，\b确保匹配完整单词（避免误判类似"redish"的字符串）
    my $target_count =()= $applied_str =~ /\bred\b/g;
    if ($target_count > 1) {
        print "记录编号 $record->{record_num} 中'red'出现了$target_count次：$applied_str\n";
    }
}

额外提示 #

如果你的业务数据来自CSV文件，推荐使用Perl的Text::CSV模块解析字段，能避免手动拆分时遇到的特殊情况（比如字段内部包含逗号）；要是数据存在数据库中，也可以结合SQL语句预处理，但上面的Perl代码更贴合你当前的操作环境。

内容的提问来源于stack exchange，提问作者Anthonee J Esparza