programming-examples/perl/SystemFunction/Get Terminal Size.pl
2019-11-15 12:59:38 +01:00

5 lines
163 B
Raku

use Term::ReadKey;
($widthchars, $heightchars, $widthpixels, $heightpixels) = GetTerminalSize();
print "Your screen is $heightpixels x $widthpixels pixels.";