Perl 打印函数自动换行
Perl print function word wrap
如何使用 print 函数 不使用 自动换行将输出打印到控制台？长字好像自动换行了。
我正在尝试编写一些简单的文本查看器，因此需要您的提示 :)
应该使用不同的功能还是改变一些模式？
这不是 perl，更多是 unix。 Perl 不换行，您的终端正在这样做。
但是，我会从 Term::ReadKey 之类的东西开始，它可以使用 GetTerminalSize();
然后用它来格式化我的 'print' 语句。
例如
use Term::ReadKey;
my ( $width_chars ) = GetTerminalSize();
然后使用它来截断该行，可能使用 substr。
例如
print substr ( $line, 0, $width_chars ),"\n"
如何使用 print 函数 不使用 自动换行将输出打印到控制台？长字好像自动换行了。
我正在尝试编写一些简单的文本查看器，因此需要您的提示 :) 应该使用不同的功能还是改变一些模式？
这不是 perl，更多是 unix。 Perl 不换行，您的终端正在这样做。
但是，我会从 Term::ReadKey 之类的东西开始，它可以使用 GetTerminalSize();
然后用它来格式化我的 'print' 语句。
例如
use Term::ReadKey;
my ( $width_chars ) = GetTerminalSize();
然后使用它来截断该行，可能使用 substr。
例如
print substr ( $line, 0, $width_chars ),"\n"