使用 Perl 将文件转换为 UTF8 格式

Question

如何使用 Perl 将文件转换为 utf-8 格式？如何检查转换后的文件是否为utf-8格式？

Answer 1

不需要安装到 iconv 库（例如 Text::Iconv）的绑定，因为 Perl 已经自带了自己的字符编码库：编码。其中一部分是 picov，一个 iconv(1) 工作一样。使用它可以将文件批量转换为 UTF-8。 ANSI 只是一组 windows-125? 编码的愚蠢名称。您很可能拥有使用 windows-1252 编码的文件。示例：

piconv -f windows-1252 -t UTF-8 < input-file > output-file

如果元数据丢失，则必须使用启发式方法来确定文件内容的编码。 我一直在推荐 编码::检测。

Answer 2

要进行转换，请查看 Text::Iconv

  use Text::Iconv;
  $converter = Text::Iconv->new("fromcode", "tocode");
  $converted = $converter->convert("Text to convert");

Answer 3

这取决于你得到的字符串。如果它是一个已上传的文件 - 我认为这段代码会有帮助。但如果它是来自网络/文本的文本，将其自身转换为 utf-8 （因为您正在使用 utf-8 ），那么您将在弄清楚它时遇到问题。

我通常使用：

使用编码::猜测

我的$enc=guess_encoding($string);

然后使用上面的代码，我这样做：

使用 Text::Iconv;
$converter = Text::Iconv->new($enc,"utf-8");
$converted = $converter->convert("要转换的文本");

仅供参考 utf-8 列表可以在这里找到：

http: //www.fileformat.info/info/charset/UTF-8/list.htm?start=1024

http://www.utf8-chartable.de/unicode-utf8-table.pl?start=1024& ;number=1024&utf8=string-literal&unicodeinhtml=dec

Answer 4

使用编码模块，您可以轻松地以不同的编码进行编码

，例如；

my $str = "A string in Perl internal format ....";
my $octets = encode("utf-8",$str,Encode::FB_CROAK);

要检查 utf 你可以使用函数

is_utf8($str,Encode::FB_CROAK)