perl - 如何在打印前过滤掉我的计算机上不可用的代码点？

Question

#!/usr/bin/env perl
use warnings;
use 5.012;
binmode STDOUT, ':encoding(utf-8)';

for ( 0 .. 10000 ) {
    print chr, ' ';
}
say "";

是否可以在打印之前过滤掉此循环中的代码点，这些代码点将打印为空格或矩形。 (我尝试复制一些矩形作为示例，但在浏览器中它们转换为漂亮的符号)。

Answer 1

不，你不可能知道这一点。它是显示文本的程序中可用字体的函数。 Perl 无法知道该程序的字体替换策略是什么。