Perl split函数如何保留（捕获）部分分隔符并丢弃其他分隔符

嘿，这个需求Perl的split函数配合正则表达式完全能搞定！我来给你拆解清楚怎么实现——既要把空格当成分隔符丢掉，又要把分号作为分隔后的元素保留下来。

核心逻辑：利用正则的捕获组 vs 非捕获组 #

Perl的split有个关键特性：如果正则里包含捕获组，捕获到的内容会被插入到拆分后的结果列表中；而非捕获组(?:...)匹配的内容只会被当作分隔符丢弃。

基于这个特性，我们可以构造两种不同的正则，对应两种常见场景：

场景1：单独空格/连续空格作为分隔符，单独分号保留为元素

适合处理类似"foo bar;baz qux;"这样的字符串，希望把连续空格拆分开，同时把分号单独作为一个元素保留。

代码示例：

my $str = "foo   bar;baz qux;last_item";
# 正则：匹配分号（捕获组，会保留） 或 连续空格（非捕获组，会丢弃）
my @parts = split /(;)|(?:\s+)/, $str;
# 过滤split产生的undef值（比如字符串开头/结尾有分隔符时会出现）
@parts = grep { defined } @parts;

# 输出结果：foo, bar, ;, baz, qux, ;, last_item
print join(", ", @parts);

解释：

• (;)：捕获组，匹配分号，split会把这个分号作为结果的一部分保留
• (?:\s+)：非捕获组，匹配一个或多个空格，只会被当作分隔符丢弃，不会出现在结果里
• grep { defined }：过滤掉split可能产生的undef（比如字符串开头就是空格的话，第一个元素会是undef）

场景2：分号前后的空格也一起丢弃，只保留分号元素

如果你的字符串里分号前后可能带空格，比如"hello ; world;foo bar"，希望把分号和周围的空格都当成分隔符，但只保留分号本身，用这个正则更合适：

代码示例：

my $str = "hello   ;   world;foo bar";
# 正则：匹配分号前后的任意空格 + 分号（捕获分号）
my @parts = split /\s*(;)\s*/, $str;
@parts = grep { defined } @parts;

# 输出结果：hello, ;, world, ;, foo bar
print join(", ", @parts);

解释：

• \s*：匹配0个或多个空格，用非捕获的方式，所以这些空格会被当作分隔符丢弃
• (;)：捕获分号，保留为结果中的元素
• 这样不管分号前后有没有空格，都会被一并处理，只留下干净的分号元素

小提示 #

如果你的字符串开头或结尾可能有分隔符（比如开头是空格，结尾是分号），split可能会产生空字符串，这时候可以在split的第三个参数传入-1，强制保留结尾的空字符串（如果需要的话），或者继续用grep过滤掉空值：

# 过滤空字符串和undef
@parts = grep { defined && $_ ne '' } @parts;

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