如何使用 perl6/rakudo 获取终端大小？

Question

perl6 是否已经有东西可以获取终端大小？

（例如像 perl5 "Term::ReadKey::GetTerminalSize" ）；

Answer 1

我不知道直接方法，但解析 qx/resize/ 应该适用于可使用调整大小命令的系统。

更新：有些高尔夫球解析代码：

my %h = qx/resize/.lines.grep(/\=/).map: { m/(\w+) \= (\d+) /; $/.list };
my ($y, $x) =  %h<LINES COLUMNS>;