使用perl拆分字符串

Question

我有大量的文字会通过。我想拆分块，所以它不超过50个字符。我可以做那个部分，但我真正需要的是它不会在一个单词的中间分开，而是在空白处。例如，如果我有这样的短语：  你好，世界？我想分割这个字符串！

让我们说例如关于那个字符串我想拆分它所以每个段不超过10个字符，但我不想分割一个单词。有没有一种简单的方法可以做到这一点？

Answer 1

use Text::Wrap qw( wrap );

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

say my_wrap("Hello, World!");

Text::Wrap