Регулярное выражение не работает для определенных специальных символов в Perl

Я не могу избавиться от специальных символов ¤ и в строке:

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

Во второй строке я пытаюсь удалить все неалфавитные символы из строки $ word . Я ожидал, что напечатаю слово цирк , но вместо этого получаю:

ci�rc�us

öäå и ÖÄÅ в выражении - обычные символы в шведском языке. алфавит, который мне нужен.

6
задан Pithikos 25 November 2011 в 15:59
поделиться