关于统计每一区间内变量数目的问题

skyyy90

我现在有一批数据，我想将其分成100个组（从10到1000），我想统计一下落入每个区间的数据的个数，如果用if...else结构的话如下：

1. if ($number<10)
   
2. {$sum1+=1;}
   
3. elsif(($number<=20) & ($number >10 ))
   
4. {$sum2+=1;}
   
5. .....

复制代码

感觉好麻烦，要写将近100遍，请问有没有简单的方法？

stanley_tam

虽然有点看不懂，但偶这有个类似的小例子，统计@nums的数字的区间{:3_193:}

1. #!perl
   
2. use strict;
   
3. 
   
4. my @nums = (1 .. 300);
   
5. 
   
6. my $data_href = +{};
   
7. for (my $var = 10; $var < 1000; $var += 10) {
   
8.     $data_href->{"@{ [ $var - 10 ] }to$var"} = grep {$_ <= $var and $_ > $var - 10} @nums;
   
9. }
   
10. 
    
11. for my $key (keys %{$data_href}){
    
12.     print "$key => $data_href->{$key}\n";
    
13. }
    
14. __END__

复制代码

maybenot

大概想法：除以10取整

如92，运算后在9~10之间
985运算后在98和99之间
计数器num1、num2。。在顺序数组里，然后直接相应元素加1

rubyish

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my %num;
   
4. while (<DATA>) {
   
5.     $num{ int( $_ / 10 ) + 1 }++;
   
6. }
   
7. 
   
8. say "num2 = $num{2}";
   
9. say "num$_\t= $num{$_}" for sort { $a <=> $b } keys %num;
   
10. 
    
11. __DATA__
    
12. 1
    
13. 10
    
14. 11
    
15. 23
    
16. 22
    
17. 25
    
18. 33
    
19. 35
    
20. 39
    
21. 30
    
22. 100
    
23. 109
    
24. 150
    
25. 152
    
26. 1111
    
27. 1112
    
28. 1113

复制代码

skyyy90

我问题的意思是这样，比如我有一批数据（1,2,4,5,8....999）,我这有100个区间（10,2,0,30,40...1000,共100个），我想统计一下这批数据落入每个区间的数目:wink:

rubyish

try:

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my %num;
   
4. while (<DATA>) {
   
5.     $num{ int( $_ / 10 ) + 1 }++;
   
6. }
   
7. say $_ * 10, " \t= ", $num{$_} // 0 for 1 .. 100;
   
8. 
   
9. __DATA__
   
10. 1
    
11. 10
    
12. 11
    
13. 23
    
14. 22
    
15. 25
    
16. 33
    
17. 35
    
18. 39
    
19. 30
    
20. 100
    
21. 109
    
22. 150
    
23. 152
    
24. 990
    
25. 998
    
26. 999

复制代码

skyyy90

弱弱的问一句，“//”是什么意思呢？

lockeyou

看看大牛的解法

Monox

回复 7# skyyy90


    "//"，defined or，左边的表达式为defined话结果就是左边的值，否则返回右边的值
可以与"||"进行比较，"||"判断左边是否为真，左边如果没有定义(undefined)则一定为假，但是即使左边有定义(defined)，也有可能为假。