How do I retrieve the terminal width in Perl?

by

The FAQ which ships with Perl has the answer to this question. If you run perldoc -q "screen size", you’ll get the following:

How do I get the screen size?

If you have Term::ReadKey module installed from CPAN, you can use it to fetch the width and height in characters and in pixels:

use Term::ReadKey;
($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();

This is more portable than the raw “ioctl”, but not as illustrative:

require 'sys/ioctl.ph';
die "no TIOCGWINSZ" unless defined &TIOCGWINSZ;
open(TTY, "+</dev/tty") or die "No tty: $!";
unless (ioctl(TTY, &TIOCGWINSZ, $winsize="")) {
    die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
}
($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
print "(row,col) = ($row,$col)";
print "  (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixel;
print "\n";

So you can use the last one if you want a pure Perl solution, or install Term::ReadKey from CPAN if you want a simpler solution in your code but more up-front set-up.

More Related Contents:

  1. I want to read a file from a directory folder [duplicate]
  2. How can I convert my shell script to Perl? [closed]
  3. How can I match values in one file to ranges from another?
  4. Perl: Compare 2 hash table values
  5. how to use multiple IP’s in perl script
  6. How can I use a variable as a variable name in Perl?
  7. How can I use a new Perl module without install permissions?
  8. When should I use the & to call a Perl subroutine?
  9. What’s the difference between my ($variableName) and my $variableName in Perl?
  10. How can I pass command-line arguments to a Perl program?
  11. How can I hook into Perl’s print?
  12. How can I combine hashes in Perl?
  13. Why do my Perl tests fail with use encoding ‘utf8’?
  14. What is the difference between my and local in Perl?
  15. Why does my Perl script exit with 137?
  16. ImageMagick Command-Line Option Order (and Categories of Command-Line Parameters)
  17. How to extrace pg_backend_pid from postgresql in shell script and pass it to another process?
  18. Perl read line by line
  19. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  20. How do I change, delete, or insert a line in a file, or append to the beginning of a file in Perl?
  21. How can I install a specific version of a set of Perl modules?
  22. What is the difference between `$this`, `@that`, and `%those` in Perl?
  23. Obtain a switch/case behaviour in Perl 5
  24. How do I extract the domain out of an URL?
  25. Why does $foo->{bar} autovivify but %$foo doesn’t?
  26. What is the meaning of @_ in Perl?
  27. Which framework should I use to write modules? [closed]
  28. What decides the order of keys when I print a Perl hash?
  29. Converting relative path into absolute path?
  30. How can I take screenshots of webpages with Perl?

Leave a Comment