perl - 如何以编程方式确定终端窗口的字符尺寸？

Question

我正在编写一个脚本，它将在终端仿真器窗口中将股票图表显示为 ASCII 艺术。我通常使用 OSX/Terminal.app，但基于 Linux 的解决方案将是一个可接受的替代方案。

我的脚本目前有用于屏幕宽度和高度的命令行参数（同样，以字符而不是像素为单位），默认值由我自己发明的环境变量确定。我希望这些脚本确定当前窗口的大小（以字符为单位），并将其用作默认值。在我的 17 英寸 Macbook Pro 上，大窗口的典型尺寸可能是 200 x 68。

这是一个 perl 脚本，但如果你知道其他语言的解决方案，请告诉！

TIA。
肯

Answer 1

执行此操作的通常方法是tput linesand tput cols; 这个查询，按顺序：

• $LINES和$COLUMNS环境变量；
• termios设置，由终端模拟器在您调整其窗口大小时设置；
• terminfo标识的描述$TERM。

Answer 2

在 C 中，您可以使用该TIOCGWINSZ选项ioctl对/dev/tty.

这是由Term::ReadKey模块公开的 - from man perlfaq8：

如何获取屏幕尺寸？

如果您Term::ReadKey从 CPAN 安装了模块，则可以使用它来获取字符和像素的宽度和高度：

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

Answer 3

当以交互方式运行时，bash 定义$LINES和$COLUMNS. 否则，使用 curses/ncurses 检索终端尺寸。