string - perlで文字列を分割する

Question

通過するテキストの大きな塊があります。チャンクを分割して、50 文字を超えないようにしたいと考えています。その部分はできますが、本当に必要なのは、単語の途中ではなく空白で分割することです。たとえば、「Hello world?」というフレーズがあるとします。この文字列を分割したい！

たとえば、その文字列を分割して、各セグメントが10文字を超えないようにしたいとしましょうが、単語を分割したくありません。それを行う簡単な方法はありますか？

score 5 · Accepted Answer

use Text::Wrap qw( wrap );

sub my_wrap {
    local $Text::Wrap::columns = 10;
    return wrap('', '', @_);
}

say my_wrap("Hello, World!");

1 に答える 1