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

Question

我正在将以下代码写入我的脚本，但它不起作用。我们的要求是需要将文件从 UTF-8 转换为 ANSI

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

如何在 perl 中做到这一点？

Answer 1

有很多选择。编码和打开的文档将帮助您找到一个。

我想我会做这样的事情。

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

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

print while <>;