windows - 如何在Windows 10中的perl> = 5.18中强制为输出文件设置代码集cp1252？

Question

我需要确保用我的perl脚本创建的输出文件具有代码集cp1252，而不是UTF-8，因为它将在UNIX SQLplus框架内使用，该框架在将值插入数据库时​​无法正确处理德语“变音符”列(我在Windows 10中使用Strawberry Perl v5.18，并且无法在UNIX SQL环境中设置NLS_LANG或chcp)。

使用这个小的测试脚本，我可以重现输出文件“testfile1.txt”始终以UTF-8格式显示，而“testfile2.txt”为CP1252正是所期望的。
即使文本中没有“特殊”字符，我如何强制“testfile1.txt”的输出也为CP1252？

#!/usr/bin/env perl -w
use strict;
use Encode;

# the result file under Windows 10 will have UTF-8 codeset
open(OUT,'> testfile1.txt');    
binmode(OUT,"encoding(cp-1252)");
print OUT encode('cp-1252',"this is a test");
close(OUT);

# the result file under Windows 10 will have Windows-cp1252 codeset
open(OUT,'> testfile2.txt');    
binmode(OUT,"encoding(cp-1252)");
print OUT encode('cp-1252',"this is a test with german umlauts <ÄäÜüÖöß>");
close(OUT);

Answer 1

我认为您的问题是基于误解。 testfile1.txt包含文本this is a test。这些字符在ASCII，Latin-1，UTF-8和CP-1252中具有相同的编码。 testfile1.txt同时在所有这些编码中均有效。

要在源代码中包含文字Unicode字符，如下所示:

print OUT encode('cp-1252',"this is a test with german umlauts <ÄäÜüÖöß>");

你需要

use utf8;

在顶部。

另外，请勿将文件句柄上的编码层与显式的encode()调用结合使用。要么设置编码层并在其中打印Unicode文本，要么使用binmode(OUT)并在其上打印原始字节(从encode()返回)。

顺便说一句，您不应该再使用-w了。它已经被

use warnings;

实用

同样，裸字文件句柄和带有两个参数的open是5.6之前的样式代码，不应在2000年之后编写的代码中使用。(perl 5.005和更早版本始终不支持Unicode/编码。)

固定版本的代码如下所示:

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

{
    open(my $out, '>:encoding(cp-1252)', 'testfile1.txt') or die "$0: testfile1.txt: $!\n";    
    print $out "this is a test\n";
    close($out);
}

{
    open(my $out, '>encoding(cp-1252)', 'testfile2.txt') or die "$0: testfile2.txt: $!\n";    
    print $out "this is a test with german umlauts <ÄäÜüÖöß>\n";
    close($out);
}