Perl：使用 X11 WindowID 获取窗口的几何图形

【问题标题】：Perl: Getting the geometry of a window with X11 WindowIDPerl：使用 X11 WindowID 获取窗口的几何图形
【发布时间】：2014-11-23 00:04:09
【问题描述】：

我正在使用 FVWM2，它允许我通过窗口装饰绑定将当前 X11 WindowID 发送到我喜欢的任何脚本。

因此单击可能会执行以下形式的 CLI 程序：

bash#example.pl

在这种情况下，WindowID 指的是一个已经存在的窗口。不是由 example.pl 生成的。

例如，如果 example.pl 是一个屏幕捕获实用程序，它将需要由标识的窗口的 X11 几何字符串来运行捕获。我可以从 xwininfo 输出中解析这些数据。但这不是便携式的。

如何在 Perl 中以编程方式从 WindowID 获取 X11 几何图形？

【问题讨论】：

标签： perl x11 perltk wxperl

【解决方案1】：

您可以使用X11::GuiTest 获取有关X11 窗口的各种信息。

在你的情况下，适当的命令是GetWindowPos(windowID):

use strict; use warnings;
use X11::GuiTest qw/GetWindowPos GetRootWindow/;

...

my ($x, $y, $width, $height, $borderWidth, $screen) = GetWindowPos(GetRootWindow());

$width 和$height 是窗口的尺寸，$borderWidth 是它的边框，$screen 是它所在的屏幕。

【讨论】：