如何从perl脚本更改文件编码

Question

我正在将代码编写到我的脚本中，但它无效。我们的要求是需要将文件从UTF-8转换为ANSI

iconv -c -f  UTF-8 -t MS-ANSI $file > $file2;

如何在perl中执行此操作？

Answer 1

有很多选择。 Encode和open的文档可以帮助您找到一个。

我想我会这样做。

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

binmode STDOUT, ':encoding(cp1252)';
binmode STDIN,  ':encoding(UTF-8)';

print while <>;