Terminal size

[pradeep]

Hi all

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

use Term::ANSIColor ;

In my perl script these two functions, are working correctly in unix
environment, But these 2 functions gives me error when i use it in
solaris, may i know the perl function for solaris that can be used to
get the terminal size, and function for printing in color

regards
pradeep

 

[Joe Smith]

Hi all

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

use Term::ANSIColor ;

In my perl script these two functions, are working correctly in unix
environment, But these 2 functions gives me error when i use it in
solaris

You can't use those modules unless they have been installed.

/usr/local/lib/perl5/site_perl/5.8.3/sun4-solaris/Term/ReadKey.pm

Note the "site_perl" part. That means that it was not part of
the core perl distribution, and is something I installed later.

use Term::ReadKey;
use Term::ANSIColor;
($w,$h,$x,$y)=GetTerminalSize();
print color("bold"),$^O,color("reset")," w=$w h=$h x=$x y=$y\n";

solaris w=80 h=46 x=0 y=0

-Joe