perl - 如何在Perl中X个字符后添加换行符？

Question

我想知道如何在X个字符之后添加换行符(即/n或<br>)。

例如，假设我有一个perl变量$ message =“aaaaabbbbbcccccdd”。我想在每5个字符后向此变量添加一个换行符。因此，当我在html中打印变量时，它将显示:

aaaaa 
bbbbb 
ccccc 
dd    

做这个的最好方式是什么？有人告诉我使用substr或count函数，但是我不确定该怎么做。任何帮助将不胜感激。谢谢!

Answer 1

一个更短的选择。

$m = "aaaaabbbbbcccccdd";
$m =~ s/(.{1,5})/$1\n/gs;
print $m;

输出:

aaaaa
bbbbb
ccccc
dd

当然，我认为我的版本是迄今为止最好的版本。 ;)