Wie bekomme ich den Terminalize mit Perl6 / Rakudo?
Frage
ist da für perl6 bereits etwas, um die endständig zu bekommen?
(zum Beispiel wie der Perl5 "Begriff :: resekey :: getterminaltrize");
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