foreach 和grep的性能差別？

wendaozhe

01.pl

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

復(fù)制代碼

02.pl

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

復(fù)制代碼

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

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


time perl 01.pl 直接死機(jī)！！

zhlong8

第一個(gè)會(huì)先構(gòu)建個(gè) 100000000 個(gè)元素的列表，第二個(gè)被優(yōu)化成迭代器了

wendaozhe

回復(fù) 2# zhlong8


    謝謝�。�