Perl iso-8859-1字符串比较

Question

我写了一个小程序来浏览 / usr / share / dict / words 找到回文

while(<>){
  chomp;
  print "$_\n" if $_ eq reverse;
}

但是，这不适用于以Latin-1（ISO-8859-1）编码的丹麦语单词列表。 只是想知道我是如何让它发挥作用的？

Answer 1

使用locale？也许还可以打开STDIN上的Unicode标志：

use Modern::Perl;
use locale;
binmode(STDIN, ":utf8");
while (<>) {
    chomp;
    say if $_ eq reverse;
}

没有binmode它可能是一个很好的单行：

perl -Mlocale -nE 'chomp; say if $_ eq reverse'