Perl正则匹配字符串结尾/?并提取前缀的问题求助

你遇到的问题核心是正则表达式的贪婪匹配特性：.*是贪婪模式，它会尽可能匹配最多的字符。在你的表达式(.*)\/?$里，因为\/?表示“可选的/”，贪婪的.*会直接把整个字符串（包括末尾的/?）都匹配进去，然后\/?匹配空字符串（因为?允许不出现），所以$1就成了整个输入字符串。

下面给你几种可行的解决方案：

方案1：使用非贪婪匹配 #

把贪婪的.*改成非贪婪的.*?，它会尽可能少匹配字符，直到遇到后面的\/?，完美适配包含内部/的场景：

$input = "boringinterestingboring/?";
if($input =~ /(.*?)\/?$/) {
    print "$1\n"; # 输出: boringinterestingboring
} else {
    print "not matched";
}

方案2：使用否定字符类（适合无内部/的场景） #

如果你的输入字符串中间没有/，可以用[^\/]*匹配所有非/的字符，这样能精准避开末尾的/?，性能也比非贪婪匹配更好：

$input = "boringinterestingboring/?";
if($input =~ /([^\/]*)\/?$/) {
    print "$1\n"; # 输出目标内容
} else {
    print "not matched";
}

⚠️ 注意：如果输入中间有/（比如hello/world/?），这个方法会只捕获最后一个/后面的内容（比如world），这种情况更适合用方案1。

方案3：直接替换末尾的/?（更直观） #

如果不需要复杂的匹配判断，直接用替换操作去掉末尾的可选/?会更简单：

$input = "boringinterestingboring/?";
$input =~ s/\/?$//; # 移除结尾的/?（如果存在）
print $input; # 输出目标内容

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