perl仅用于查找和替换完全匹配

Question

我正在尝试在perl中实现替换。 我有一个二进制矩阵，我想替换

0 with 1

和

1 with 2.

所以我使用了以下行

s/1/2/g foreach @remaining;

但是，此命令最终会替换我的列名，其中包含数字。例如，它会转换为1234到2234。

我希望它匹配并仅替换1而不是1234。

Answer 1

使用字边界，如：

s/\b1\b/2/g foreach @remaining;

同时替换0和1：

s/\b([01])\b/1+$1/eg foreach @remaining;