如何在 Perl 中显示扩展 ASCII 代码字符？

Question

如何显示 192 个字符的符号( └ )珀尔？

Answer 1

你想要的是能够打印unicode，答案就在 perldoc perluiintro 。

您可以使用 \x{nnnn} 其中 n 是十六进制标识符，或者您可以使用以下名称执行 \N{...}：

perl -E 'say "\x{2514}"; use charnames; say "\N{BOX DRAWINGS LIGHT UP AND RIGHT}"'

Answer 2

要准确使用这些代码，您的终端必须支持代码页 437，其中包含框架。或者，您可以使用派生的 CP850 来减少拳击字符。
此类装箱字符也以 Unicode 块元素 的形式存在。 Perl 中所需的字符被标记为 \N{U+2514}。更多详细信息请参见 perlunicode

Answer 3

这看起来像代码页 437 编码。 Perl 可能只是输出您给它的字节。您的终端可能需要 UTF8。

因此，您需要将其解码为 Unicode，然后将其重新编码为 UTF-8。

编辑：正确的编码。

Answer 4

像往常一样，Jon Skeet 指出了这一点：192 代码位于“扩展 ASCII 中”范围。我建议您遵循@Douglas Leeder的建议，但我不确定 www.LookupTables.com 为您提供了哪种编码； ISO-8859-1 认为 192 映射为“À”，而 Mac OS Roman 认为它是“¿”。

Answer 5

有没有适用于所有角色的解决方案？

用户说他们想使用 latin-1 扩展字符集字符 - 所以让我们尝试一下此块中的示例！因此，如果他们想要 Æ 字符，他们会运行...

print "\x{00C6}";

输出：�

完全可测试的在线演示

Perl 中的 TDLR 字符编码模式

那么，等等，刚刚发生了什么？您会注意到调用 UTF-8 的其他方式，例如 char(...)、\N{U+...}，甚至 unpack(...) 也有同样的问题。没错——问题不在于这些函数，而在于底层的字符抽象层。在这种情况下，您需要在代码中尽早指示该层。

use open qw( :std :encoding(UTF-8) );
print "\x{00C6}";

输出：Æ

现在我可以正确拼写'Ælf'！

完整可测试的在线演示

为什么会发生这种情况？

PerlDoc 中有一个关于 chr() 函数的注释< /strong>....

请注意，出于向后兼容性的原因，默认情况下，从 128 到 255（含）的字符在内部不会编码为 UTF-8。

因此，这个特殊的块需要有特殊的use open来指示std编码。