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

所以我正在尝试编写一个perl脚本来读取一个用Latin-1编码的文件.由于某种原因,这只是没有成功.当我尝试简单搜索我知道的文件中的字符时(它在第一行),没有任何显示.我正在使用编码“iso 8859-1”;下面,但我也尝试过binmode(STDIN,“：utf8”);.关于我可能做错了什么以及如何做对的任何建议？

use encoding "iso 8859-1";

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

解决方法

不要使用use encoding pragma：它已经坏了.

在此处指定编码：

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>,那么使用open可能是最简单的.

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

原文地址：https://www.jb51.cc/Perl/171593.html