获取反斜杠未转义的字符

Question

我正在研究 date() 之类的日期转换函数，需要解析字符串并留下转义字符。

我的意思是通过正则表达式（或任何更好的方式）将 $str1 更改为 $str2：

$str1 = '5852& ^ \a\\b\\\\\c D \\e k.';
$str2 = 'bDek';

$str2 只有 [a-zA-Z] 没有被反斜杠转义。

问候，

Answer 1

这可能会为您解决这个问题：

(?:^|[^\\](?:\\\\)*)([a-zA-Z])\b

Perl 演示：

$ perl -ne 'print "-->$_<--\n" foreach m/(?:^|[^\\](?:\\\\)*)([a-zA-Z])\b/g'
5852& ^ \a\\b\\\\\c D \\e k.                                                                              
-->b<--
-->D<--
-->e<--
-->k<--
o\a\\b\\\c\\\\d
-->o<--
-->b<--
-->d<--

正则表达式如下：

(?:               # begin non capturing group
  ^               # the beginning of input,
  |               # or
  [^\\]           # a character which is not a backslash, followed by
  (?:\\\\)*       # two backslashes, zero or more times
)                 # end non capturing group, followed by
([a-zA-Z])        # a letter, captured, followed by
\b                # a word break