正则表达式不适用于 Perl 中的特定特殊字符

Question

我无法摆脱特殊字符 ¤ 和 ❤ 在一个字符串中:

$word = 'cɞi¤r$c❤u¨s';
$word =~ s/[^a-zöäåA-ZÖÄÅ]//g;
printf "$word\n";

在第二行，我尝试删除任何 非字母 字符串中的字符 $word .我希望能打印出 circus 这个词，但我得到:

ci�rc�us

表达式中的 öäå 和 ÖÄÅ 只是我需要包含的瑞典字母表中的普通字符。

Answer 1

如果字符在您的源代码中，请确保 use utf8 .如果它们是从文件中读取的，binmode $FILEHANDLE, ':utf8' .

请务必阅读 perldoc perlunicode .