Печать в удобочитаемом виде (Perl)

Question

Предположим, я хочу напечатать довольно длинную фразу на Perl. Как и большинство, я запускаю Perl-коды в cmd (а позже ожидаю сделать из него исполняемый файл).

Проблема в том, что, поскольку каждый пользователь имеет свой собственный размер командной строки, иногда код обрезает слово в середине и заканчивает писать его на следующей строке. Например:

This is a te
xt

Я не хочу такой вещи; Я предпочитаю видеть «Это текст». Но, как уже говорилось, некоторые пользователи имеют разные размеры командных строк, поэтому я не могу редактировать их вручную. Можно ли что-нибудь сделать, чтобы напечатать все слова целиком?

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);