perl 只查找和替换完全匹配

Question

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

0 与 1

和

1 对 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;