Perl中动态适配任意长度数组的匹配删除逻辑修复求助

我来帮你梳理下问题并修复这个逻辑哈！你的核心需求是动态适配任意长度的用户输入数组@var，和每次迭代生成的@array进行前缀匹配（匹配点.之前的部分），匹配到的元素标记为删除，未匹配的存入@Matrix对吧？先看看原代码里的几个关键问题：

原代码的问题点 #

• 硬编码的循环边界：for (my $x = 0; $x <= 4; $x++) 固定了@array的长度为5，但你说每次迭代@array都是新的、内容不同的数组，这样会导致长度不匹配时要么漏处理元素，要么越界报错。
• 固定长度的匹配条件：if( ($var[0] eq $1) or ($var[1] eq $1) ) 只能处理@var长度为2的情况，完全没法适配用户输入的任意长度。
• 正则匹配的鲁棒性不足：如果@array里的字符串没有.，$1会是未定义值，直接拿来比较会触发警告甚至逻辑错误。
• 逻辑混乱的数组操作：每次循环都打印整个@array，而不是匹配的单个元素；而且把整个@array的引用push到@Matrix，这显然不是你要的（应该是保留未匹配的单个元素？或者保留未匹配的整个数组？看你的描述应该是处理单个元素）。

修复后的解决方案 #

针对你的需求，我推荐用哈希表来存储@var的匹配项，这样不管@var长度多少，查找匹配都是O(1)的高效操作；同时用动态循环遍历@array，处理正则匹配的边界情况。

完整修复代码示例（处理单个元素匹配） #

# 模拟每次迭代生成的新@array
my @array = ("R-ID 1.0001", "RA-ID 61.02154", "TCA-ID 49.021456","RCID 61.02154","RB-ID 61.02154");
# 模拟用户输入的任意长度@var
my @var = ("TCA-ID 49", "R-ID 1", "RCID 61"); # 这里改成3个元素测试

# 把@var转成哈希，方便快速查找
my %var_map = map { $_ => 1 } @var;

my @deleted_rows;
my @Matrix;

# 动态遍历@array的每个元素
foreach my $item (@array) {
    # 提取点之前的前缀，没有点就用整个字符串
    my $prefix = $item =~ /(.+?)\./ ? $1 : $item;
    
    if (exists $var_map{$prefix}) {
        # 匹配到，加入删除列表
        push @deleted_rows, $item;
        print "\nDeleted row: $item\n";
    } else {
        # 未匹配，加入Matrix
        push @Matrix, $item;
        print "Kept row: $item\n";
    }
}

# 最后查看结果
print "\nAll deleted rows: @deleted_rows\n";
print "Final Matrix: @Matrix\n";

关键改动说明 #

1. 哈希表优化匹配：把@var转成%var_map，这样检查$prefix是否在用户输入里只需要exists $var_map{$prefix}，不管@var有1个还是100个元素都能适配。
2. 动态遍历数组：用foreach my $item (@array)直接遍历每个元素，完全不需要关心数组长度，避免硬编码边界的问题。
3. 鲁棒的正则匹配：用三元表达式处理没有.的情况，保证$prefix永远有值，不会出现未定义的警告。
4. 清晰的元素处理：把匹配和未匹配的元素分别存入@deleted_rows和@Matrix，打印的是单个元素而不是整个数组，逻辑更清晰。

如果你的需求是当@array中存在任意一个匹配@var的元素时，就删除整个@array（而不是单个元素），那逻辑可以调整成这样：

my @array = ("R-ID 1.0001", "RA-ID 61.02154", "TCA-ID 49.021456","RCID 61.02154","RB-ID 61.02154");
my @var = ("TCA-ID 49", "R-ID 1");

my %var_map = map { $_ => 1 } @var;
my $has_match = 0;

foreach my $item (@array) {
    my $prefix = $item =~ /(.+?)\./ ? $1 : $item;
    if (exists $var_map{$prefix}) {
        $has_match = 1;
        last; # 找到匹配就停止检查，提升效率
    }
}

if ($has_match) {
    print "\nDeleted entire array: @array\n";
} else {
    print "Kept entire array: @array\n";
    push @Matrix, \@array; # 存入数组引用到Matrix
}

这样就能根据你的实际需求选择对应的逻辑啦！

备注：内容来源于stack exchange，提问作者Sai Pradyumna Tumma