替代正則表達式

Question

我想用$替換類[A-Za-z0-9_]之前的所有空白。

$string = "STRING sDir = sDrive";
$string =~ s/\s(?=[A-Za-z0-9_])/ \$/;

它只匹配一次並產生：

STRING $sDir = sDrive;

Answer 1

要多次匹配，請使用/ g標志：

$string = "STRING sDir = sDrive";
$string =~ s/\s(?=[A-Za-z0-9_])/ \$/g;

Answer 2

您可以將g標志用於正則表達式：

$string = "STRING sDir = sDrive";
$string =~ s/\s(?=[A-Za-z0-9_])/ \$/g;

這樣s///就可以在您的模式的每次匹配中使用。

Perl的默認行為是執行一次替換。

g標志告訴它為每次出現執行替換。

Answer 3

如果我認為您的意思是：

s/\s+\b/ \$/g;

這會刪除（所以' a' -> ' $a' ）之前的所有空格，並且\\ b是(?=(?<=\\W)\\w)或(?=(<=\\w)\\W_的斷言; \\ s始終為\\W ，並且[a-zA-Z0-9_]與\\w的通用定義匹配，因此它與您的(?=[...])匹配。

（當然，如果要處理\\w與[a-zA-Z0-9]字符集，則必須用\\b代替斷言。）