正则表达式并用 preg_replace 替换双撇号

Question

我有几行需要更新，其中双撇号在某些位置被替换并被删除，但其他位置则没有。

所以：

(2, 'Name 2', '', 8, 0, 0, 1, 'Info blah blah', 0, 4), 
(3, 'Name 3', 'A normal bit of information', 8, 1, 0, 1, 'Info more blah', 0, 4),
(45, 'Name 45', 'Info with '' in it like it''s stuff', 356, 10, 1, 1, '', 0, 9)

需要变成：

(2, 'Name 2', '', 8, 0, 0, 1, 'Info blah blah', 0, 4), 
(3, 'Name 3', 'A normal bit of information', 8, 1, 0, 1, 'Info more blah', 0, 4),
(45, 'Name 45', 'Info with \'\' in it like it\'\'s stuff', 356, 10, 1, 1, '', 0, 9)

当尝试各种方法时，我设法用 \'\' 更新所有 '' ，然后破坏稍后使用的功能。

Answer 1

'(([^']*?)('{2})([^']*?))+'([,|\)])

这应该能够被 '$1\'\'$4'$5 替换，并且仅匹配单引号内的 2 个单引号，尽管后面是否出现逗号。

Answer 2

s/(?<=')([^',]*)''(?=[^',]*')/$1\\'\\'/g

记住，你稍后无法更改游戏并允许在分隔符“(')”之间使用单个撇号，因为它与“('')”不兼容。好的？

use strict;
use warnings;

my @data = (
"(2, 'Name 2', '', 8, 0, 0, 1, 'Info blah blah', 0, 4), ",
"(3, 'Name 3', 'A normal bit of information', 8, 1, 0, 1, 'Info more blah', 0, 4),",
"(45, 'Name 45', 'Info with '' in it like it''s stuff', 356, 10, 1, 1, '', 0, 9)",
"''''' ','''',''''",
);

for (@data) {
    print "\n$_\n";
    if (
          s/ (?<=')([^',]*) '' (?= [^',]*')/$1\\'\\'/xg
       )
    {
       print "==>\t$_\n";
    }
}

输出：
(2, '名称 2', '', 8, 0, 0, 1, '信息等等', 0, 4),
(3, '名称 3', '普通信息', 8, 1, 0, 1, '更多信息', 0, 4),
(45, '名称 45', '信息中带有 '' 就像它的东西', 356, 10, 1, 1, '', 0, 9)
<代码>==> (45, '名称 45', '其中包含“类似内容”的信息', 356, 10, 1, 1, '', 0, 9)
''''' ','''',''''
<代码>==> '\'\'\'\' ','\'\'','\'\''

Answer 3

嗯，这确实需要一些解析。如果您使用正则表达式，它实际上只能在最佳匹配的基础上工作。

如果您可以假设 '', 始终是 CSV 列表中的空字符串，则可以选择查找逗号。然而，如果其中一个字符串在双引号后包含逗号，那么这将会失败：

preg_replace("/''(?![,)])/", "\\'\\'", $text);

为了添加一些安全性，您可以添加前缀检查，例如 (?<=[(\s]) -但这没什么帮助。