怎么用定义的索引数组寻找某数组中一片元素

drosophilia

@array=qw（a b c d e f）为原始数组
@index=qw (1 2 0)       为索引数组，自己定义的！
我怎么用索引数组来找原始数组的3个元素？ 这里我要找的是一个数组即（b，c，a）

tmp

1. 
   
2. D:\>perl -e"@array = qw(a b c d e f); @idx = @array[1,2,0]; print \"@idx\n\""
   
3. b c a
   

复制代码

就算你不知道这个办法,循环一下第二个数组也不也更好吗? 唉...

MMMIX

原帖由 drosophilia 于 2009-6-22 02:46 发表
@array=qw（a b c d e f）为原始数组
@index=qw (1 2 0)       为索引数组，自己定义的！
我怎么用索引数组来找原始数组的3个元素？ 这里我要找的是一个数组即（b，c，a）

@array[@index];

详见 perldata 中 Slices 一节。

smallfish_xy

@array[1 .. 3];

MMMIX

原帖由 smallfish_xy 于 2009-6-22 09:26 发表
@array[1 .. 3];

数组的元素是有顺序的，['b', 'c', 'a'] 和 ['a', 'b', 'c'] 不是一回事。

caining062

@array[@index]

drosophilia

[quote]原帖由 MMMIX 于 2009-6-22 09:03 发表

@array[@index];


要到就是这一个，刚开始就这么琢磨的试了几下，但没试出来！可能我用的是$index,谢谢了！也谢谢caining062

[ 本帖最后由 drosophilia 于 2009-6-22 10:03 编辑 ]