regex - 如何在 Perl 中对字符串进行自动换行？

Question

我正在尝试通过 Perl 中的正则表达式创建一个松散的自动换行系统。我想要的是大约每 70 个字符左右检查下一个空格出现并用换行符替换该空格，然后对整个字符串执行此操作。我正在操作的字符串中可能已经有换行符，但换行符之间的文本量往往很长。

如果可以，我想避免一次循环一个字符或使用 substr，并且我更愿意就地编辑此字符串，而不是创建新的字符串对象。不过，这些只是偏好，如果我不能在不打破这些偏好的情况下实现我想要的东西，那也没关系。

想法？

Answer 1

s/(.{70}[^\s]*)\s+/$1\n/

使用前 70 个字符，然后在下一个空格处停止，捕获过程中的所有内容。然后，发出捕获的字符串，省略末尾的空格，添加换行符。

这并不能保证您的行将严格切断 80 个字符或其他内容。不能保证它消耗的最后一个单词不会有 10 亿个字符长。