Perl中如何提取数组元素内所有cat匹配项并生成关联新元素

首先修正代码里的语法错误，再针对多cat项的情况做拆分处理，以下是修改后的代码：

use warnings;
use strict;

my @array1 = ("cat4, cat5, cat7", "ab:12, cd:43", "cat1", "cd:51", "cat6, cat12", "ab:17");
my @array2;

for (my $i = 0; $i < @array1; $i++) {
    my $currarrayelem = $array1[$i];

    # 提取当前元素中所有的cat项
    if (my @cats = $currarrayelem =~ /cat\d+/g) {
        # 确保下一个元素存在（避免数组越界）
        if (defined $array1[$i+1]) {
            foreach my $cat (@cats) {
                my $new_item = "$cat $array1[$i+1]";
                print "$new_item\n";
                push @array2, $new_item;
            }
        }
    }
}

# 验证结果
print "\n最终数组内容:\n";
print "$_\n" for @array2;

关键修改说明 #

• 修正语法错误：
  • 循环条件$i < @array1：Perl中数组在标量上下文会返回元素个数，原代码array1缺少@符号，且i++要写成$i++（变量需加$前缀）。
  • 移除print和push前的$：这两个是内置函数，不需要变量符号。
• 拆分多cat项：
  • 使用@cats = $currarrayelem =~ /cat\d+/g，全局匹配当前元素中所有cat+数字的项，得到单独的cat列表。
  • 遍历每个cat项，分别与下一个数组元素拼接，生成新元素并加入@array2。
• 添加边界检查：用defined $array1[$i+1]避免当最后一个元素是cat项时，访问不存在的下一个元素导致报错。

运行这段代码后，就能得到你预期的结果：

cat4 ab:12, cd:43
cat5 ab:12, cd:43
cat7 ab:12, cd:43
cat1 cd:51
cat6 ab:17
cat12 ab:17

最终数组内容:
cat4 ab:12, cd:43
cat5 ab:12, cd:43
cat7 ab:12, cd:43
cat1 cd:51
cat6 ab:17
cat12 ab:17

内容的提问来源于stack exchange，提问作者gonkp