Perl打印功能自动换行

Question

如何在没有自动换行的情况下使用print功能将输出打印到控制台？似乎它会自动包装长单词。

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

Answer 1

这是更少的perl，更多的unix。Perl 不换行，你的终端正在这样做。

但是，我会从可以使用GetTerminalSize();

的类似Term::ReadKey开始

然后使用它来格式化我的"打印"语句。

例如

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

然后使用它来截断行，可能使用 substr .

例如

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