terminal - 如何使用 perl6/rakudo 获得 Terminalsize？

Question

perl6 是否已经有了获得 Terminalsize 的东西？

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

Answer 1

我不知道直接的方法，但是解析qx/resize/应该在 resize 命令可用的系统上工作。

更新：有点打高尔夫球的解析代码：

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