数组元素排序：按指定关键字顺序

maybenot

数组元素排序：按指定关键字顺序

@keys = qw/ key1 key2 key3 key4 /;
@lines =  (
        key3: ...,
        key1: ...,
        key2: ...,
        key4: ...,
        );
想按@keys中的顺序对@lines排序。

我的想法是遍历@keys，对每个key到@lines去查找，找到后push到新的数组，思路比较笨，大家给点建议吧

guap514

@newArray = @lines{@keys};

好像 和你的push 差不多{:3_196:}

guap514

额   好像理解错了   以为是hash了
{:3_190:}

nuclearxin

@newArray = @lines{@keys};

好像 和你的push 差不多
guap514 发表于 2010-04-13 15:23

    @lines{@keys};
偶没遇到过 谁解释解释？

nuclearxin

遍历@lines 直接print @keys 到新数组

guap514

回复 4# nuclearxin


    好像是叫哈希切片  不过lz的不是哈希 就没用了

nuclearxin

hash切 不是％hash｛＠array｝吗？

nuclearxin

hoho 知道啦 % 是结构
所以不能print大

hp_truth

回复 1# maybenot


(1)如果是要按指定的顺序输出hash的话,  guap514 的方法就很好, @newArray = @lines{@keys};

(2)如果是数组的话, 可以用一个hash来辅助一下, 速度在数据量很大的情况下应该比每次都扫描一下数组要快, 当然这个辅助hash用了很大的空间.
算是空间换时间吧. 此外对于sort体内的正则表达式, 可以用Memoize这个module来缓存, 这样对于大的数组的话, 可以进一步节省时间, 相应的用了更多的空间:
比如:
my @ks = ('c', 'b', 'd', 'a');
my @lines = ('a:123', 'b:456', 'c:789', 'd:101112');
my %h2;
for my $i (0..$#ks ) {
     $h2{$ks[$i]} = $i;
}

my @newlines = sort { my($k1) =$a=~ m/^(\w+):/; my ($k2)=$b=~ m/^(\w+):/; $h2{$k1}<=>$h2{$k2}; } @lines;

maybenot

回复 9# hp_truth


    正是这个效果！非常感谢hp_truth，以及楼上各位，这里高手真多