regex - 如何从 Perl 中的字符串中删除最后一个逗号

Question

我有一个来自原始数据的字符串。我不能保证可能有也可能没有额外的逗号。我想我可以像这样删除它:

$value = "cat, dog, fish, ";

$value =~ s/,//r;

遗憾的是，这不起作用。当然，我可以做一个循环来逐个检查字符串的最后一个字符，但我想学习如何使用 Regex 反斜杠方法来做到这一点。

有人可以帮帮我吗？

Answer 1

试试这个

$value =~ s/,\s*$//;

模式 ,\s*$ 匹配逗号 (,) 后跟零个或多个空格字符 (\s*) , 后跟行尾/输入 ($)。