Замещающее регулярное выражение

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 на утверждение.)