perl字符串替換的負面正則表達式

Question

我試圖縮短所有多個空間到一個空間，除了空間（縮進）的第一次發生。

我發現這個代碼將替換第一個出現次數：

$_ =~ s/^ +/ /;

所以我想，它的否定會做我想做的。但事實並非如此：

$_ =~ s/!^ +/ /g;

我在做什麼錯？

Answer 1

你可以改變的方法來正則表達式

s/\S\K +/ /g; 

Answer 2

感嘆號在正則表達式中不是否定的。至少，不是那樣的。

你需要的是負回顧後：

s/(?<!^)\s+/ /g; 

應該做的伎倆。