如何在 Perl 中指定 WE8MSWIN1252 编码？

Question

我正在使用 Perl 并希望使用以下编码对我的字符串进行编码：WE8MSWIN1252

我试过了

$output =encode('WE8MSWIN1252',$string)

但是它的抛出错误。

知道如何指定此编码 WE8MSWIN1252 吗？

Answer 1

WE8MSWIN1252 是 Oracle 对 Windows-1252.

的指定

use Encode qw( encode );

my $bytes = encode('Windows-1252', $ucp);    # aka 'cp-1252' aka 'cp1252'

$ucp 应该是解码文本，也就是一串 Unicode 代码点。