用Perl分割字符串

Question

我有很多文本会通过。 我想分割块，使其不超过50个字符。 我可以做到这一点，但我真正需要的是它不会在单词中间分裂，而是在空白处分裂。 例如，如果我有短语：Hello world？ 我想分割这个字符串！

比方说，例如，我要对该字符串进行拆分，以便每个段不超过10个字符，但我不想拆分一个单词。 有一个简单的方法可以做到这一点吗？

Answer 1

use Text::Wrap qw( wrap );

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

say my_wrap("Hello, World!");