各位先進
目前在使用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://www.ptt.cc/bbs/Perl/M.1588142338.A.BFF.html
※ 編輯: luncha (110.50.143.229 臺灣), 04/29/2020 14:52:45