可以提前初始化吗?

sunzhiguolu

看了篇帖子, 内容如下:

a 1
b 21
c 13
d 24
e 15
f 16
g 27
h 9
i 31
j 65
j 35
k 55

这些数字中，小于10的出现2次，10-20出现了3次，20-40出现了5次，大于40出现了2次。
如何按这个范围统计呢？

输出：
<10 2
10-20 3
20-40 5
>40 2

我的代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aStat;
   
6. while (<DATA>){
   
7.     my (undef, $num) = split;
   
8.     my @aExpress = ("$num < 10", "$num > 10 and $num <= 20", "$num >= 20 and $num < 40", "$num > 40");
   
9.     foreach (0 .. $#aExpress){
   
10.         $aStat[$_]++ if (eval $aExpress[$_]);
    
11.     }
    
12. }
    
13. printf ("<10 %d\n10-20 %d\n20-40 %d\n>40 %d\n",@aStat);
    
14. 
    
15. __DATA__
    
16. a 1
    
17. b 21
    
18. c 13
    
19. d 24
    
20. e 15
    
21. f 16
    
22. g 27
    
23. h 9
    
24. i 31
    
25. j 65
    
26. j 35
    
27. k 55
    

复制代码

sunzhiguolu

我在这里有一个问题请教大家, 能否将第 8 行的代码:

1. my @aExpress = ("$num < 10", "$num > 10 and $num <= 20", "$num >= 20 and $num < 40", "$num > 40");

复制代码

移到 while 循环之外, 也就是在 while 循环之外对数组 @aExpress 进行初始化 而在 while 之内只是进行比较操作, 是否可行? 还请大家指点, 谢谢大家...

RE_HASH

$num may not.
\$num should work, or use ' instead of "

sunzhiguolu

回复 3# RE_HASH
真的很神奇, 您老能给个解释吗? 先谢谢大神了...

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aStat;
   
6. my @aExpress = ("\$num < 10", "\$num > 10 and \$num <= 20", "\$num >= 20 and \$num < 40", "\$num > 40");
   
7. 
   
8. while (<DATA>){
   
9.     my (undef, $num) = split;
   
10.     foreach (0 .. $#aExpress){
    
11.         $aStat[$_]++ if (eval $aExpress[$_]);
    
12.     }
    
13. }
    
14. printf ("<10 %d\n10-20 %d\n20-40 %d\n>40 %d\n",@aStat);
    
15. 
    
16. __DATA__
    
17. a 1
    
18. b 21
    
19. c 13
    
20. d 24
    
21. e 15
    
22. f 16
    
23. g 27
    
24. h 9
    
25. i 31
    
26. j 65
    
27. j 35
    
28. k 55
    

复制代码

RE_HASH

yours: eval '1<10', eval '21<10' ...
mine: eval '$num<10' all the time.

L_WC

回复 1# sunzhiguolu


RE_HASH 。。。永远都这么省墨水儿

sunzhiguolu

回复 5# RE_HASH
好的, 我先学习一下, 有不懂的地方再向您请教, 谢谢大神指点...