可読な方法で印刷する（Perl）

Question

Perlでかなり長いフレーズを印刷したいとします。ほとんどの場合と同様に、私はcmdでPerlコードを実行します（そして後でそれを実行可能にすることを期待しています）。

問題は、各ユーザーが独自のコマンドラインサイズを持つため、コードが途中で単語を切り取り、次の行に書き込むことがあることです。例：

This is a te 
xt 

私はそのようなことを望んでいません。私は "This is a \ ntext"を見るのが好きです。しかし、言ったように、いくつかのユーザーはコマンドラインのサイズが違うので、手動で編集することはできません。すべての言葉全体を印刷するためにできることはありますか？

Answer 1

現在の端末幅を取得するためにモジュールTerm::ReadKeyでコアモジュールText::Wrapを使用します。

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

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