如何使用Perl按多个指定位置截取字符串？

嘿，这个需求在Perl里其实有挺简洁的实现方式，我给你两种靠谱的方案，你可以根据自己的习惯选：

方法一：用substr循环处理切割位置 #

这是最直观的方法，思路就是遍历每个切割起始点，依次截取到下一个切割点（或字符串末尾）的子串：

my $string = "AACCAAGTAA";
# 注意：你写的{0,4,8}是语法错误，Perl数组要用圆括号()
my @cut_places = (0, 4, 8);
# 把字符串长度追加到切割位置末尾，确保能取到最后一段
push @cut_places, length($string);

my @result;
# 遍历每个切割起始点，和下一个位置配对截取子串
for my $i (0 .. $#cut_places - 1) {
    my $start_pos = $cut_places[$i];
    my $next_pos = $cut_places[$i+1];
    # substr(字符串, 起始位置, 截取长度)
    push @result, substr($string, $start_pos, $next_pos - $start_pos);
}

# 用空格拼接结果并输出
print join(' ', @result) . "\n"; # 输出：AACC AAGT AA

方法二：动态构建正则表达式截取 #

如果喜欢用正则的写法，可以先计算每个分段的长度，再动态生成匹配规则：

my $string = "AACCAAGTAA";
my @cut_places = (0, 4, 8);
push @cut_places, length($string);

# 先算出每个分段的长度
my @segment_lengths;
for my $i (0 .. $#cut_places - 1) {
    push @segment_lengths, $cut_places[$i+1] - $cut_places[$i];
}

# 动态构建正则：比如长度4、4、2就生成"(.{4})(.{4})(.{2})"
my $regex = join '', map { "(.{$_})" } @segment_lengths;
# 用正则匹配得到所有分段
my @result = $string =~ /$regex/;

print join(' ', @result) . "\n"; # 同样输出：AACC AAGT AA

两种方法都能满足你的需求，第一种更直观易懂，适合新手；第二种写法更简洁，正则爱好者会更喜欢～

内容的提问来源于stack exchange，提问作者Ernesta Petraitytė