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>;