Perl的那些技巧：平均切割数组

发布时间：2020-12-16 00:05:13 所属栏目：大数据来源：网络整理

导读：有些时候需要将数组分成长度相同的多个子数组，比如批量查询数据库。这时，我们可以用splice完成这个功能。代码如下： ? #!/usr/bin/env perl use strict ; use warnings ; my @chunks ; my $size = 10 ; my @array = ( 1..100 ); push @chunks ,[ splice (

有些时候需要将数组分成长度相同的多个子数组，比如批量查询数据库。

这时，我们可以用splice完成这个功能。代码如下：

#!/usr/bin/env perl
use strict;
use warnings;
my @chunks;
my $size = 10;
my @array = (1..100);
push @chunks,[splice(@array,0,$size)] while @array;
foreach my $ref (@chunks) {
    print join("t",@$ref)."n";
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!