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

Question

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

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

我希望正则表达式删除最后一个逗号和5所以输出为： some\\string,/doesnt-really.metter

我不能只在正则表达式中使用任何其他模块。 那么我应该使用哪个正则表达式呢？

另一个例子：

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

Answer 1

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

Answer 2

这正则表达式捕获前的最后一切, 。

(.*),[^,]*$

Answer 3

perl -n -e 'chomp; s/(.+,)/$1/g; print "$_\n";' inputfile.txt

只需直接在终端上运行此命令，正则表达式将选择最后一个逗号之前的所有文本）。