如何用Perl正则表达式删除字符串最后一个逗号后的所有内容

刚好处理过类似的文本处理需求，用纯Perl正则就能轻松搞定，完全不需要额外模块。核心思路就是精准匹配最后一个逗号及其后面的所有内容，然后把这部分替换为空字符串即可。

核心正则表达式 #

s/,[^,]*$//

正则逻辑拆解 #

• ,：匹配目标逗号
• [^,]*：匹配任意数量（包括0个）的非逗号字符，确保我们只捕获最后一个逗号之后的内容
• $：锚定到字符串末尾，保证我们匹配的是最末尾的那个逗号，不会误删前面的逗号内容

代码示例 #

直接把这个正则应用到你的字符串上就行，看两个测试案例：

# 测试案例1
my $input1 = 'some\string,/doesnt-really.metter,5';
$input1 =~ s/,[^,]*$//;
print "$input1\n"; # 输出：some\string,/doesnt-really.metter

# 测试案例2
my $input2 = 'string_with,,,,,_no_point,some_string';
$input2 =~ s/,[^,]*$//;
print "$input2\n"; # 输出：string_with,,,,,_no_point

边界情况兼容 #

如果输入字符串里没有逗号，这个正则不会做任何修改——因为找不到匹配项，比如输入hello_world123，输出还是原字符串，这也是合理的处理逻辑。

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