如何在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

当然,我认为我的版本是目前最好的版本.;)