以可读的方式打印（Perl）

Question

假设我希望在Perl中打印相当长的短语。像大多数人一样，我在cmd中运行Perl代码（后来希望从中生成可执行文件）。

问题是因为每个用户都有自己的命令行大小，有时代码会在中间剪切一个单词，并在下一行完成编写。例如：

This is a te
xt

我不想要这样的事情;我更喜欢看“这是一个\ ntext”。但是，如上所述，一些用户具有不同大小的命令行，因此我无法手动编辑它。有什么东西可以用来打印整个单词吗？

Answer 1

将核心模块Text::Wrap与模块Term::ReadKey一起使用以获取当前终端宽度：

use Term::ReadKey;
use Text::Wrap;

my ($width, $height, $wpixels, $hpixels) = GetTerminalSize();
$Text::Wrap::columns = $width;
print wrap('', '', $text);