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