Question

Perl怎么将一串很长的字符串按指定个数分成几行?

比方说 $str = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
输出是这个样子的：
aaaaaaaaaa
aaaaaaaaaa
aaaaaaaaaa
aaaaa

Answer 1

例如 按照 3 个 分开
首先 把它每个字符 分开，变成 数组
my $str = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa";
my @arr=split//,$str;
for （my $i=0;$i<@arr;$i=$i+3）{
print "@[$i..$i+2]\n";
}