Perl map

TrishaTie

For example:

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

对于map， 是把每个map进来的item处理之后缓存到一个地方，处理完所有的@array 一起输出到@newarray呢？还是map进来的每个item处理完之后直接输出到@newarray?

先谢谢大家解答了！

sunzhiguolu

我也是只会乱用, 不明白原理 也不会做实验验证 同是小白, 请大神出手. 帮顶!

jason680

回复 1# TrishaTie

判断是否使用map原则...
须要取得(回传)数组---map会return传回数组

# 须要(回传)数组 用map
my @newarray = map {...} @array;  

# 不须要(回传)数组 用foreach
foreach (@array) {...}  



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

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

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

kk861123

来看试验结果

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.         ];

复制代码

sunzhiguolu

@jason680, @kk861123
多谢两位大神的解释 + 实验, 清楚许多...

TrishaTie

I see ! Thanks a lot for Jason's answer! 回复 3# jason680


   

TrishaTie

谢谢KK君， 一经实验，明朗很多，感觉是先放到一起再输出来呀~   回复 4# kk861123


   

TrishaTie

多谢帮顶啦！^.^ 回复 2# sunzhiguolu


   

j_cle

up up up

rubyish

回复 4# kk861123

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

XX le, 3Q ~