Perl的正則表達式來替換字符之間的逗號，逗號和空格

Question

我想

camera, photo, image, data 

替換以下字符串

camera,photo,image, data 

這是可行的，在Perl的正則表達式？請注意，最後一個單詞（數據）已被逗號和空格分隔，因此不應在此處重複該轉換。

Answer 1

如何：

my $str = 'camera,photo,image, data'; 
$str =~ s/,(?=\S)/, /g; 
say $str; 

輸出：

camera, photo, image, data 

Answer 2

,(?!)用空格替換它', '

Answer 3

（空間沒有顯示出很好的代碼將在這裏，所以這個答案使用_（下劃線），其中需要的空間。）

要轉換一個逗號，後跟由零個或多個空格轉換爲逗號後跟一個空格，用,_替換,_*（即替換逗號空格星號與逗號空格）。

要轉換逗號後跟零個或一個空格逗號後跟一個空格，取代,_?與,_（即，具有逗號空間取代逗號空間問號）。