我想用Perl编写一个正则表达式,它将删除字符串中最后一个逗号之后的所有内容。我知道最后一个逗号后面的子串是一个数字或其他一些子串,所以那里没有逗号。
示例:some\string,/doesnt-really.metter,5。
我希望正则表达式删除最后一个逗号和5,因此输出将是:some\string,/doesnt-really.metter
我不允许使用任何额外的模块,只与正则表达式。那么我应该使用哪个正则表达式呢?
另一个例子:
string_with,,,,,_no_point,some_string => string_with,,,,,_no_point
发布于 2018-05-27 19:03:40
如果逗号后面总是跟一个或多个数字,您可以使用:s/,\d+$//。更一般地,使用s/,[^,]*$// (匹配逗号,后跟零个或多个非逗号字符,后跟字符串结尾)。
https://stackoverflow.com/questions/50551426
复制相似问题