Perl extension for retrieving terminal size (perl version)
use Term::Size::Perl;
($columns, $rows) = Term::Size::Perl::chars *STDOUT{IO};
($x, $y) = Term::Size::Perl::pixels;
Yet another implementation of \*(C`Term::Size\*(C'. Now in pure Perl, with the exception of a C probe run on build time.
($columns, $rows) = chars($h); $columns = chars($h); \*(C`chars\*(C' returns the terminal size in units of characters corresponding to the given filehandle $h. If the argument is omitted, *STDIN{IO} is used. In scalar context, it returns the terminal width.
($x, $y) = pixels($h); $x = pixels($h); \*(C`pixels\*(C' returns the terminal size in units of pixels corresponding to the given filehandle $h. If the argument is omitted, *STDIN{IO} is used. In scalar context, it returns the terminal width. Many systems with character-only terminals will return \*(C`(0, 0)\*(C'.
It all began with Term::Size by Tim Goodwin. You may want to have a look at:
Term::Size Term::Size::Unix Term::Size::Win32 Term::Size::ReadKey
It would be helpful if you send me the Params.pm generated by the probe at build time. Please reports bugs via \s-1CPAN\s0 \s-1RT\s0, http://rt.cpan.org/NoAuth/Bugs.html?Dist=Term-Size-Perl
I am having some hard time to make tests run correctly under the \*(C`cpan\*(C' script. Some Unix systems do not seem to provide a working tty inside automatic installers. I think it needs some skip tests, but I am yet not sure what should be the portable tests for this.
Update: This distribution uses new tests to skip if filehandle is not a tty. It was noticed that \*(C`Test::Harness\*(C' and \*(C`prove\*(C', for instance, provide a non-tty \s-1STDOUT\s0 to the test script and automatic installers could provide a non-tty \s-1STDIN\s0. So the former tests were basically wrong. I am improving my understanding of the involved issues and I hope to soon fix the tests for all of Term::Size modules.
A. R. Ferreira, <[email protected]>
Copyright (C) 2006-2007 by A. R. Ferreira
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.