perl - 在 perl 中对哈希键进行排序，键是制表符分隔的

Question

我有一个数组哈希(perl)，其键是一个由制表符连接的字符串。这就是哈希键的样子

chr"\t"fivep"\t"threep"\t"strand  # separated on tab

如果哈希被命名为 %output

我想对这个哈希的键进行排序，这样首先排序在 chr 上完成，然后在 Fivep 上，然后在 threep 上。

我尝试了以下代码进行排序:

foreach my $k(sort keys %output){
    print join("\t",$k,@{$output{$k}}),"\n";    
}

这仅对 chr 进行排序，但我想在其后排序 5p，然后再排序 3p。

我该怎么做？

Answer 1

我将建议您对键进行转换，然后进行自定义排序。

for my $k (
    map { $_->[0] } # pull out the original key
    sort { $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2] || $a->[3] cmp $b->[3] } # do the actual sort
    map { [ $_, split /\t/, $_, -1 ] } # split the keys and make the transform
    keys %output
) {
     print join "\t", $k, @output{$k};
}

如果 sort 代码块过于复杂或者这个过程也需要在代码中的更多地方重用，你可以将 sort 代码块分解到它自己的函数中，然后给 函数>排序.