如何在 Perl 中读取 ISO 8859-1 (Latin-1) 编码文本

Question

所以我试图编写一个 perl 脚本来读取以 Latin-1 编码的文件。由于某种原因，这行不通。当我尝试对文件中我知道的字符（位于第一行）进行简单搜索时，什么也没有显示。我在下面使用使用编码“iso 8859-1”;，但我也尝试过binmode(STDIN, ":utf8");。关于我可能做错了什么以及如何改正有什么建议吗？

use encoding "iso 8859-1";

while(<>)
{
    if(/ó/gi)
    {
    print "Found one!\n";
    }
}

Answer 1

不要使用 use Encoding 编译指示：它已损坏。

要么在此处指定编码：

use open ":encoding(Latin1)";

要么将其放在 open 本身中：

open(FH, "< :encoding(Latin1)", $pathname)
   || die "can't open $pathname: $!";

或者在打开后使用 binmode：

binmode(FH, ":encoding(Latin1)")
   || die "can't binmode to encoding Latin1";

如果您使用 ，则 使用 open 可能是最简单的。

不要忘记在输出流上设置编码。