数组需求突变,求高手快速处理以下数组问题

ztj2247

有一数组 @a 内有10W数据，现有以下要求
1. 删除所有为零的数据
2. 删除前、后各25%的数据，仅保留中间50%的数据

请问如何快速处理呀？

兰花仙子

有一数组 @a 内有10W数据，现有以下要求
1. 删除所有为零的数据
2. 删除前、后各25%的数据，仅保留中间50 ...
ztj2247 发表于 2011-09-08 15:47

    掰手指头数。

ztj2247

掰手指头数。
兰花仙子 发表于 2011-09-08 15:52

    没有更快速的方法吗？ 求时间复杂度最少的方法

zzmmgjj

A couple of questions -

1. What kind of data in the array?
2. How much memory do you have on the server planned to run the script?
3. You may want to consider mapreducer if you have a really huge data set.

Thanks

兰花仙子

没有更快速的方法吗？ 求时间复杂度最少的方法
ztj2247 发表于 2011-09-08 15:56

    这种问题你先求自己实现下吧，实现了再求最优。
最简单用个for循环也会吧。。

$ perl -le '@x=(1,2,3,4,0,1,2,3);for ($i=0;$i<=$#x;$i++){next if $i<2 or $i>5 or !$x[$i];print $x[$i]}'
3
4
1

ztj2247

A couple of questions -

1. What kind of data in the array?
2. How much memory do you have on the ...
zzmmgjj 发表于 2011-09-08 16:03

    1.全是数字
    2. 64G内存，8核CPU
    3. 只想本地计算，不想使用hadoop

zarcao

1. 清空：@a = ();

2. 先清掉后面的25%，$#a -= 2500;
    再反向 reverse (@a);
    再清25%， $#a -= 2500;
    再恢复回来 reverse (@a);

可能有点复杂，但应该能实现

Perlvim

1. 
   
2. use strict;
   
3. use warnings;
   
4. use 5.010;
   
5. 
   
6. my @array = (1 .. 100000);
   
7. # 获取不为零的部分
   
8. my @no_zero_array = grep { $_ != 0 } @array;
   
9. 
   
10. my $count = scalar @array;
    
11. my $start_number = int(0.25 * $count);
    
12. my $end_number = int(0.75 * $count);
    
13. my $length = $end_number - $start_number;
    
14. # 获取25%--75%的部分
    
15. my @splice_array = splice(@array, $start_number, $length);
    
16. 
    

复制代码

ztj2247

Perlvim 发表于 2011-09-08 16:18

    谢谢，逻辑很清晰 。目前就先采用你的方法吧

toniz

没有更快速的方法吗？ 求时间复杂度最少的方法
ztj2247 发表于 2011-09-08 15:56

    {:3_203:} 再加上脚趾头。。。