求助，对一个数组让小于的10的元素放到一个数组中，小于20的元素放到另一个数组中，

赛萌

一个很大的数组，从0开始的，我排过序之后，需要以10个为间隔，小于10的放到一个数组中，小于20的放到一个数组中，小于30的放到一个数组中，40，50....直到200；
因为要统计每个小数组的个数，这个变量该怎么设呢，想写成数组的数组的形式，如果写if（$_<10){}elsif($_<20){}这样太麻烦
下面是我写的，后面还得命名很多数组，能不能找个简便的方法啊，
my (@arr1,@arr2,@arr3,@arr4,@arr5,@arr6,@arr7,@arr8);
for (@arr){
        if($_<10){
                push @arr1,$_;
        }elsif($_<20){
                push @arr2,$_;
        }elsif($_<30){
                push @arr3,$_;
        }elsif($_<40){
                push @arr4,$_;
        }elsif($_<50){
                push @arr5,$_;
        }elsif($_<60){
                push @arr6,$_;
        }elsif($_<70){
                push @arr7,$_;
        }
}
my ($i1,$i2,$i3,$i4,$i5,$i6,$i7,$i8);
$i1=@arr1;
$i2=@arr2;
$i3=@arr3;
$i4=@arr4;
$i5=@arr5;
$i6=@arr6;
$i7=@arr7;
$i8=@arr8;

wexinperl

something like this :

1. my $h = [];
   
2. for my $i ( 0 .. 19 ) {
   
3.     $h->[$i] = [ grep {   $i * 10  < $_ <= ( $i + 1 ) * 10 } @total ];
   
4. }

复制代码

jason680

回复 1# 赛萌

提示: int($val/10)
    $val= 0~9: 0
    $val= 10~19: 1
    $val= 20~29: 2
    ...
    $val= 190~199: 19

104359176

可以从大到小遍历：

1. if ($a > 100) { ... }
   
2. if ($a > 90) { .. }
   
3. ..

复制代码

也可以将区间当成一个键：

1. $key = int( $a / 10)
   
2. $hash->{$key} = []
   
3. push $hash->{$key}, $a

复制代码

赛萌

回复 4# 104359176


    不是特别明白，是让10为区间分割这些数组，那$key变成了元素/10，有什么区别吗

MMMIX

回复 1# 赛萌


    编辑帖子, 把表情禁用掉. 另外, 帖子的标题也顺便修改下, 把你的问题在其中体现下.

赛萌

回复 6# MMMIX


    用取余数就行了是吧

MMMIX

回复 1# 赛萌


    使用数组的数组. 对于原始数组的每个成员, 根据其值找到其所应在的子数组, 然后 push 即可:

my @arr = (1 .. 200);

my @subarrs;
for (@arr) {
    my $idx = int ($_ / 10);
    push @{$subarrs[$idx]}, $_;
}

MMMIX

回复 7# 赛萌


    取余数? 你是说取模? 11, 21, 31 (mod 10) 都是 1 啊.

赛萌

回复 9# MMMIX


    恩，好像是不对，但是还得问你一下，求这里面的每个小数组的个数，好像用$i=@i这样的方式不行啊