regex - 使用正则表达式和 sed 替换文件中的字符串

Question

在文本文件中包含以下字符串。

{"_job":"delete","query":{"query":{"bool":{"must":[{"term":{"_id":"28381"}}],"should":[]}}},"script":{"inline":"ctx._source.meta='This is a ' test string Peedr'"},"timestamp":1518165383,"host":"","port":"9200","index":"","docType":"","customIndexer":""}

我想将 ctx._source.meta='' 部分中的所有 ' 替换为 \' 使用 sed。

在上面的示例中，我将 This is a ' test string Peedr 转换为 This is a\' test string Peedr，因此所需的输出将是:

{"_job":"delete","query":{"query":{"bool":{"must":[{"term":{"_id":"28381"}}],"should":[]}}},"script":{"inline":"ctx._source.meta='This is a \' test string Peedr'"},"timestamp":1518165383,"host":"","port":"9200","index":"","docType":"","customIndexer":""}

我正在使用以下正则表达式获取 ctx._source.meta 字符串(第 3 个捕获组)内的 '。

(meta=')(.*?)(')(.*?)(')

我有正则表达式，但我不知道如何使用 sed 命令用 \' 替换第三个捕获组.

有人可以帮我告诉我必须使用的 sed 命令吗？

提前致谢

Answer 1

sed 通常不支持 Perl 正则表达式扩展，因此非贪婪的 .*? 可能不会如您所愿。如果您想使用 Perl 正则表达式，请使用 Perl!

perl -pe "s/(meta='.*?)(')(.*?')/\$1\\\\\$2\$3/"

如果输入格式不正确，这仍然不一定有效；更好的方法是专门从匹配中排除单引号，这样就不需要非贪婪匹配。

sed "s/\\(meta='[^']*\\)'\\([^']*'\\)/\\1\\\\'\\2/"

在这两种情况下，转义 shell 双引号内的反斜杠所需的反斜杠数量是惊人的。