Question

求助：用perl如何实现数组元素的组合

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;