Perl正则表达式捕获第二个/之后所有字符的问题

哦，我明白你碰到的问题了——你写的正则^(?:[^/]*/){2}([^/]*)之所以只抓到hello，是因为[^/]*会匹配直到下一个斜杠为止的所有非斜杠字符，所以在第二个斜杠之后，它只匹配到第三个斜杠前的hello就停止了，自然拿不到后面的/world/newyork.html部分。

正确的正则表达式 #

要捕获第二个斜杠之后的全部内容（不管后面还有多少斜杠），只需要把捕获组里的[^/]*换成.*就可以了：

^(?:[^/]*/){2}(.*)

正则解释 #

• ^(?:[^/]*/){2}：这部分和你原来的一样，用非捕获组(?:...)匹配前两段带斜杠的内容（比如示例里的/en-us/），重复两次刚好跳过前两个斜杠及其前面的内容。
• (.*)：捕获组1，.*会匹配从当前位置（第二个斜杠之后）到字符串结尾的所有字符，完美覆盖后面的hello/world/newyork.html。

Perl代码示例 #

在Perl里使用这个正则时，注意如果用/作为正则分隔符，需要转义正则里的/，或者换用其他分隔符（比如{}）让代码更清爽：

my $path = '/en-us/hello/world/newyork.html';

# 方法1：用{}作为分隔符，无需转义/
if ($path =~ m{^(?:[^/]*/){2}(.*)}) {
    print "捕获结果：$1\n"; # 输出 hello/world/newyork.html
}

# 方法2：用/作为分隔符，需要转义/
if ($path =~ /^(?:[^\/]*\/){2}(.*)/) {
    print "捕获结果：$1\n";
}

补充：用Split实现（更直观的替代方案） #

如果觉得正则有点绕，也可以用Perl的split函数拆分路径，再拼接需要的部分：

my $path = '/en-us/hello/world/newyork.html';
my @path_parts = split /\//, $path;
# 取数组中从索引2开始的所有元素（跳过前两个空字符串和en-us），再用/拼接
my $captured = join '/', @path_parts[2..$#path_parts];
print "捕获结果：$captured\n";

这个方法在路径结构固定时，可读性可能比正则更好~

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