perl - 如何在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(FH, "< :encoding(Latin1)", $pathname)
   || die "can't open $pathname: $!";

或在打开后用 binmode对其进行编码:

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

如果您使用的是 <ARGV>，那么 use open可能是最简单的。

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