确定屏幕尺寸的跨平台技术

Question

是否有一个很好的跨平台的方法来获得屏幕尺寸？我经常用PerlTk做这件事：

 use Tk;
 my $mw = MainWindow->new;
 my $screen_width  = $mw->screenwidth();   
 my $screen_height = $mw->screenheight();  

但是，最好不要仅仅为了这样加载所有的Tk。

这看起来是一种很好的X11特定于做这些事情的方法(GetRootWindow应该适用于屏幕尺寸)：

Perl:用X11 WindowID获取窗口的几何形状

但我认为跨平台的方法会更好。

具体来说，我正在寻找确定以像素为单位的监视器尺寸的方法，这就是Tk的屏幕宽度和屏幕高度返回的内容。

Answer 1

在大多数POSIX-y系统中：

use Curses ();
my $screen_width = $Curses::COLS;
my $screen_height = $Curses::LINES;

这些值不会在调整屏幕大小时自动更新。