Frage

ist da für perl6 bereits etwas, um die endständig zu bekommen?

(zum Beispiel wie der Perl5 "Begriff :: resekey :: getterminaltrize");

War es hilfreich?

Lösung

I'm not aware of a direct method, but parsing qx/resize/ should work on systems where the resize command is available.

Update: somewhat golfed parsing code:

my %h = qx/resize/.lines.grep(/\=/).map: { m/(\w+) \= (\d+) /; $/.list };
my ($y, $x) =  %h<LINES COLUMNS>;
Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow
scroll top