如何在Perl中打印六十四卦？

Question

如何在Perl中打印六十四卦？

3

我试图在Perl中打印这里的第一个六十四卦。

以下代码没有生成任何错误，但也没有打印任何卦象。

use warnings;
use open ':encoding(utf8)';
binmode(STDOUT, ":utf8");

print "\x{4DC0}\n";

我希望看到的是"䷀"而不是"Σ╖Ç"。

- Douglas Marsh

1

它对我有效。你确定你的终端是期望UTF-8吗？ - Grinnz

use open 调用是不必要的，因为您在该范围内没有打开任何句柄。或者，如果您将 ':std' 作为参数添加到 use open 中，则不需要 binmode。无论哪种方式，您都应该传递 :encoding(UTF-8)，因为 :utf8 和 :encoding(utf8) 引用 Perl 的内部编码层，通常不应在代码中使用。 - Grinnz

是的，我改变了代码页，这有所帮助。现在我得到了一个小白色矩形，我想这是一种进步。你曾经尝试过在Tk画布对象中实现这个吗？这最初是为了达到那个目标而进行的测试。 - Douglas Marsh

并非所有字形都适用于所有字体。如果您在小部件上明确设置字体，则可能会更加顺利。 - Grant McLean

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- ikegami · Accepted Answer

你告诉 Perl 你的终端是 UTF-8 编码，但你的终端似乎期望以下之一：^[1]

由于这些都是 Windows 代码页，我认为所涉及的终端是 Windows 控制台。如果是这样，可以使用以下任一命令查找期望的编码：

chcp

perl -le"use Win32; print Win32::GetACP()"

在数字前添加cp以获得可与Encode模块（由:encoding层使用）一起使用的名称。

然而，知道期望的编码并没有帮助。这些编码中的字符集都不包含“䷀”，因此您的终端无法显示“䷀”而不进行更改。

您可以通过发出以下命令将Windows控制台期望的编码切换为UTF-8：

chcp 65001

您可能需要在控制台属性中调整字体。

I obtained the list of possible encodings using the following program:

use strict;
use warnings;
use feature qw( say );
use utf8;
use Encode qw( decode encode_utf8 );

my $output = encode_utf8("\x{4DC0}");
my $displayed = "Σ╖Ç";

for my $encoding (Encode->encodings(":all")) {
   defined( my $got = eval { decode($encoding, $output, Encode::FB_CROAK|Encode::LEAVE_SRC) } )
      or next;

   say $encoding if $output eq $displayed;
}

(Make sure the file is encoded using UTF-8.)