用 shell perl 替换 UTF-8 字符

Question

如何perl从 shell 正确替换 UTF-8 字符？

这些示例使用标准输入，但我也需要一些适用的东西perl ... file。

这是我的期望：

$ echo ABCæøåDEF | perl -CS -pe "s/([æøå])/[\\1]/g"
ABC[æ][ø][å]DEF

这就是我得到的：

$ echo ABCæøåDEF | perl -CS -pe "s/([æøå])/[\\1]/g"
ABCæøåDEF

用 ASCII 替换 Unicode 字符可以立即生效：

$ echo ABC123DEF | perl -CS -pe "s/([123])/[\\1]/g"
ABC[1][2][3]DEF

我的环境：

perl 5.18.2
Bash 3.2.57
LC_ALL=en_US.UTF-8
LANG=en_US.UTF-8

Answer 1

用这个 ：

 $ echo 'ABCæøåDEF' |
    perl -CSD -Mutf8 -pe 's/([æøå])/[$1]/g'

也适用于文件

输出 ：

ABC[æ][ø][å]DEF

笔记 ：

• 替换：\\1用于awk，\1用于sed和在perl 中我们使用$1
• 检查perldoc perlrun的-CSDUTF8技巧