作者luncha (谢谢)
看板Perl
标题[请益] 字串中连续逗号以空格隔开
时间Wed Apr 29 14:38:56 2020
各位先进
目前在使用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, , , , , , , , , , ,)；
请问该怎麽修改呢？
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 110.50.143.229 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1588142338.A.BFF.html
※ 编辑: luncha (110.50.143.229 台湾), 04/29/2020 14:52:45