Как получить Terminalsize с помощью perl6 / rakudo?

Есть ли уже что-то для perl6, чтобы получить Terminalsize?

(например, как perl5 "Term :: ReadKey :: GetTerminalSize");


terminal raku
person sid_com    schedule 16.02.2011    source источник

Ответы (1)


arrow_upward
3
arrow_downward

Я не знаю прямого метода, но синтаксический анализ qx/resize/ должен работать в системах, где доступна команда изменения размера.

Обновление: код синтаксического анализа, который несколько усложняется:

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