正则表达式替换&与&

Question

我有一个字符串,其中包含以下内容.

"This R&M & Exapmle  . It is very big & Complicated &146; example."

我想替换&,&但当我使用时$str =~ s/&/&/ig;给出以下输出.

"This R&M & Company  . It is very big & CMM Level3 &146; Organization."

我期待着这一个.

"This R&M & Company  . It is very big & CMM Level3 &146; Organization."

请帮帮我,我不知道如何解决它.

Answer 1

您可以使用负面预测断言:

$str =~ s/&(?!\w+;)/&/g;

Answer 2

use HTML::Entities;
encode_entities decode_entities "This R&M & Exapmle  . It is very big & Complicated &146; example."
# returns: "This R&M & Exapmle  . It is very big & Complicated &146; example."

&146;写错了’.如果您有更多这类错误,请在往返编码之前过滤/替换它们.