使用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!");

文本换行