Perl map

TrishaTie

For example:

my @newarray=map{...},@array;

對于map， 是把每個(gè)map進(jìn)來的item處理之后緩存到一個(gè)地方，處理完所有的@array 一起輸出到@newarray呢？還是map進(jìn)來的每個(gè)item處理完之后直接輸出到@newarray?

先謝謝大家解答了！

sunzhiguolu

我也是只會(huì)亂用, 不明白原理 也不會(huì)做實(shí)驗(yàn)驗(yàn)證 同是小白, 請大神出手. 幫頂!

jason680

回復(fù) 1# TrishaTie

判斷是否使用map原則...
須要取得(回傳)數(shù)組---map會(huì)return傳回?cái)?shù)組

# 須要(回傳)數(shù)組 用map
my @newarray = map {...} @array;  

# 不須要(回傳)數(shù)組 用foreach
foreach (@array) {...}  



Note: ===== map = foreach + push ============

my @newarray = map {...} @array;  

# 結(jié)果相同（但map不一定是如此處理）
foreach(@array){
  ...;
  push @newarray, $_;
}

kk861123

來看試驗(yàn)結(jié)果

1. ➜  tmp  cat map.t
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. 
   
7. my @array = 1..10;
   
8. my @new;
   
9. @new = map { my $x=$_; print Dumper(\@new); $x * $x } @array;
   
10. 
    
11. print "END " . Dumper(\@new);
    
12. ➜  tmp  perl map.t
    
13. $VAR1 = [];
    
14. $VAR1 = [];
    
15. $VAR1 = [];
    
16. $VAR1 = [];
    
17. $VAR1 = [];
    
18. $VAR1 = [];
    
19. $VAR1 = [];
    
20. $VAR1 = [];
    
21. $VAR1 = [];
    
22. $VAR1 = [];
    
23. END $VAR1 = [
    
24.           1,
    
25.           4,
    
26.           9,
    
27.           16,
    
28.           25,
    
29.           36,
    
30.           49,
    
31.           64,
    
32.           81,
    
33.           100
    
34.         ];

復(fù)制代碼

sunzhiguolu

@jason680, @kk861123
多謝兩位大神的解釋 + 實(shí)驗(yàn), 清楚許多...

TrishaTie

I see ! Thanks a lot for Jason's answer! 回復(fù) 3# jason680


   

TrishaTie

謝謝KK君， 一經(jīng)實(shí)驗(yàn)，明朗很多，感覺是先放到一起再輸出來呀~   回復(fù) 4# kk861123


   

TrishaTie

多謝幫頂啦！^.^ 回復(fù) 2# sunzhiguolu


   

j_cle

up up up

rubyish

回復(fù) 4# kk861123

@new = map { my $x=$_; print Dumper(\@new); $x * $x } @array;

XX le, 3Q ~