Perl打印功能自动换行

Question

如何使用print函数在没有 wordwrap的情况下将输出打印到控制台？它似乎自动包裹了长话。

我正在尝试编写一些简单的文本查看器，所以我需要你的提示:) 应该使用不同的功能还是改变一些模式？

Answer 1

这是更少的perl，更多unix。 Perl没有包装线，你的终端正在这样做。

但是，我从Term::ReadKey开始使用GetTerminalSize();

然后用它来格式化我的＆＃39; print＆＃39;声明。

e.g。

use Term::ReadKey;
my ( $width_chars ) = GetTerminalSize();

然后使用它截断该行，可能使用substr。

E.g。

print substr ( $line, 0, $width_chars ),"\n"