Regexp不适用于Perl中的特定特殊字符

Question

我无法摆脱字符串中的特殊字符¤和❤:

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

在第二行,我尝试从字符串中删除任何非字母字符$word.我希望打印出马戏团这个词,但我得到:

ci?rc?us

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

Answer 1

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

一定要阅读perldoc perlunicode.