如何在perl中删除逗号

Question

我有此示例数据，我想删除逗号，特别是该行的最后一个逗号，顺便说一下，它是.csv文件。

W，S，Vbd2OX / NW，Vbd2OX / PW，Vbd3OX / NW，Vbd3OX / PW， 
ID，ID，11200，V 11200，V 11200，V 11200， 
6,1,0.69,5.56，-5.56,10.5，-10.12，
6,2,3.99,7，-5.13，-7,640.455，

这2个代码不起作用最后一个逗号仍然存在

$line =~ s/\,$//g;

和

$line =~ s/,//g;

Answer 1

如果最后一个逗号后有空格（对于几行来说似乎是正确的），则需要：

s/, *$//;

无需反斜杠转义逗号；不需要/g何时希望每行最多进行一次替换。