foreach 和grep的性能差别？

wendaozhe

01.pl

1. my @uu=grep {$_%2==1} (0..100000000);

复制代码

02.pl

1. my @uu;
   
2. foreach(0..100000000){
   
3.    if($_%2==1){
   
4.       push @uu,$_;
   
5.     }
   
6. }
   

复制代码

net@wendaozhe ~/app/perl $ time perl 02.pl

real        0m18.567s
user        0m17.909s
sys        0m0.618s


time perl 01.pl 直接死机！！

zhlong8

第一个会先构建个 100000000 个元素的列表，第二个被优化成迭代器了

wendaozhe

回复 2# zhlong8


    谢谢啊！