各位先进
目前在使用perl的字串处理
但是无法有效分开字符，想请大家解惑
想要把字串中”连续逗号”用空格隔开
如下：
$str1=‘judge(“pat, pat1, pat2”, INIT,,,,,,,,,,,)‘；
$str2=‘judge(“pa3, pat4, pat5”, INIT, ,, ,,,, ,,,,)‘；
$str1 =~ s/\,\,/, ,/g ;
$str2 =~ s/\,\,/, ,/g
结果：
judge(“pat, pat1, pat2 “, INIT, ,, ,, ,, ,, ,,)；
judge(“pa3, pat4, pat5 “, INIT, , , , ,, , , ,, ,)；
但是我想要的格式是：
judge(“pat, pat1, pat2”, INIT, , , , , , , , , , ,)；
judge(“pa3, pat4, pat5 “, INIT, , , , , , , , , , ,)；
请问该怎么修改呢？
谢谢