Исключение двойных кавычек исправить

Question

Я не могу найти ресурсы для этого. Я хочу избежать двойных кавычек с perl, и я новичок в этом языке.

Вот что у меня есть:

$comment =~ s/\"/\\\"/g; 

Это, кажется, не работает. Какое правильное решение?

Answer 1

Один из способов, чтобы вставить вещи, которые нужно было бы избежать, не считая обратной косой черты

$comment =~ s/"/q(\")/eg; 

/e С модификатором замена части оценивается как код, и результат используется в качестве замены. См. Его in perlop и, скажем, this post. Здесь это используется для принудительной строки в q().

Обратите внимание, что в этом простом случае s/"/\"/ отлично работает. Вероятно, в вашем коде больше всего происходит, или ваши котировки идут уже сбежавшими, и в этом случае дополнительные \ влияют на то, что вы видите позже.

Answer 2

не требуется подсчитывать:

$comment =~ s.(?=").\\.g;