根据perl中的输出屏幕调整行大小

Question

我在perl

的屏幕上输出一些文字

但是，我想确保每条屏幕线上只有1条线，因此如果我更改屏幕，程序会自动调整其输出线尺寸。

有没有办法在没有用户互动的情况下自动执行此操作？

由于

Answer 1

在Unix / Linux上，您应该能够使用Term系列模块来获取当前的屏幕大小。您甚至可以将SIGWINCH与它挂钩，并通过调整输出来响应终端窗口调整大小事件。

http://search.cpan.org/modlist/User_Interfaces/Term

Answer 2

perl -MTerm::ReadKey -E '($cols,$rows) = GetTerminalSize(); say "This screen has $rows rows and $cols columns."'