Perl的grep和map有什麼作用？

Question

這段代碼實際上做了什麼？

@array = ('hai','hello','bar','foo') ; 

print grep (/hai/ , @array); 
print grep ("hai",@array) ; 
print map (/hai/ , @array); 
print map ("hai",@array) ; 

Answer 1

試試吧......

print grep (/hai/ , @array); 
hai 
# writes all elements from @array containing 'hai' in them 

print grep ("hai",@array) ; 
haihellobarfoo 
# writes all elements, because "hai" evaluates to true 

print map (/hai/ , @array); 
1 
# writes 1 for the only element from the @array, that contains 'hai' 

print map ("hai",@array) ; 
haihaihaihai 
# maps 'hai' to each element from @array 

Answer 2

它調用map和grep函數。其中的描述可在和map的perlfunc條目中找到。

今天谷歌破碎了嗎？