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

Question

是否有一种好的跨平台方式来获取屏幕尺寸？ 我经常用 PerlTk 这样做:

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

但最好不要为了执行此操作而加载所有 Tk。

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

Perl: Getting the geometry of a window with X11 WindowID

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

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

Answer 1

在大多数 POSIX-y 系统上:

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

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