Question

Perl如何合并数组元素？

现在一个文本文件，格式如下：
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.032258064516129 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.032258064516129 0 0 0.032258064516129 0.032258064516129 0 0 0 0 0 0.032258064516129 0 0.0645161290322581 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.032258064516129 0 0 0 0 0 0.032258064516129 0 0 0 0.0645161290322581 0 0.032258064516129 0 0 0 0.032258064516129 0 0 0 0 0 0 0 0 0 0 0.032258064516129 0 0 0 0 0 0.0645161290322581
由于使用了push，导致了每一个数字都是@array中的一个元素。
例如$array[0]=0, $array[1]=0,.......
如何使每20个数字变成数组的一个元素？
要求变成$array[0]=0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.032258064516129
$array[1]=0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.032258064516129 0 0 0.032258064516129
........

Answer 1

local $/ = undef; $contents = <>;
@a = split /\s+/,$contents;
while($i < $#a) { push @b,join(' ',@a[$i..$i+19]); $i+=20 }
use Tie::File;
tie @b,'Tie::File', 'output.txt' or die;
untie @b;