Как получить размер Терминала с perl6 / rakudo? - PullRequest
2 голосов
/ 16 февраля 2011

Есть ли для perl6 уже что-то, чтобы получить размер терминала?

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

1 Ответ

3 голосов
/ 16 февраля 2011

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

Обновление: несколько разбранный код:

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