regex - 正则表达式删除字符串中最后一个逗号之后的所有内容

Question

我想在 Perl 中编写一个正则表达式，它将删除字符串中最后一个逗号之后的所有内容。我知道最后一个逗号之后的子字符串是一个数字或其他一些子字符串，所以那里没有逗号。

示例：some\string,/doesnt-really.metter,5。

我希望正则表达式删除最后一个逗号，5因此输出将是：some\string,/doesnt-really.metter

我不允许仅使用正则表达式使用任何附加模块。那么我应该使用哪个正则表达式？

另一个例子：

string_with,,,,,_no_point,some_string => string_with,,,,,_no_point

标签： regexperl

Answer 1

如果逗号后面总是跟一个或多个数字，您可以使用: s/,\d+$//. 更一般地，使用s/,[^,]*$//（匹配一个逗号，后跟零个或多个非逗号字符，后跟字符串结尾）。