sort,map的特別用法...

bytewolf

[quote]原帖由 "lgjut"]http://www.effectiveperl.com/recipes/sorting.html[/quote 发表：
     

呵呵~~，写得很清楚

powerplane

偶想问一个问题，是不是用一个sort/map就会产生一个新的数组？如果是这样，下面的程序产生了4个数组吧？

1. 
   
2. 3.Schwartizian Transform：
   
3. @sorted_name = map {$_->;[0] }# 取出原本的filename，产生第三个数组，结构为[filename]。赋值过程中，把该数组copy到@sorted_name中，实际产生了第四个数组吧？
   
4. sort { $a->;[1] <=>; $b->;[1] }#--产生第二个数组（结构跟第一个数组一样，并且，依照modified_time去比大小）
   
5. map { [$_,-M] } #--产生第一个数组，[filename,modified_time]
   
6. @files; #----
   

复制代码

powerplane

偶明白了，的确会产生数组。不过由于最右面的map用了"[]"，所以只是一个reference，所以copy的工作量不会很大哦！

bytewolf

[quote]原帖由 "powerplane"][/quote 发表：
     


不是不是~~你可以认为只对这一个缺省的数组@_进行操作，没有产生4个数组

powerplane

哦，那么在"="出现的地方会产生数组复制吗？

apile

事實上有兩個anonymous array在那裡面動作
只是我們只用他的ref，
第一個是map{[$_,-M]}@files;
這兒..第二個是sort{$a->;[1]<=>;$b->;[1]}
最後map{$_->;[0]}則是排序完後的新的array..
至於copy數量..當然不少..
光sort就copy很多次了..
map也有..

powerplane

呵呵，我的意思是：
copy的数量多，但是copy的工作负荷不大，因为都是copy指针，不是整个字符串。如果字符。

dahe_1984

好帖如此之多。精华贴需要耐心看，比看书涨的快。

rubyish

哦，偶明白了，的确写得很清楚.

jiang870320

cat passwd| perl -e 'print map{$_->[0]}sort{$a->[1]<=>$b->[1]}map{[$_,(split /:/)[2]]}<>'