作者：eea1051113 | 来源：互联网 | 2022-10-24 18:56
我正在查看以下数据（JSON）
{
"FValidation_pipelineMTHXT_v4.5.1_refLibV2": "concordance2/f",
"FValidation_pipelineLPJL": "concordance2/c",
"FCompetenceRuns": "concordance2/b",
"FWGS": "concordance2/a",
"Falidation_pipelineMTHXT": "concordance2/e",
"FValidation_pipelineLPJL_v4.5.1_refLibV2": "concordance2/d"
}
我试图按哈希值排序
for %files.kv -> $key, $value {
提供所需的数据，但我希望对其进行排序。我尝试了20种不同的方法，这些方法不起作用
for %files.sort.kv -> ($key, $value) {
和
for %files.sort: *.value.kv -> ($key, $value) {
它的灵感来自https://docs.perl6.org/routine/sort#(Map)_method_sort
，而且一直都在起作用，但没有一个:(
如何按值对哈希进行排序？
1> ugexe..：
my %hash = :a, :b, :c;
for %hash.sort(*.value) {
say $_.key;
say $_.value;
}
我知道这只是一个例子，但只是要注意一些替代方法-代替`say $ _。key`可以只是`say .key`甚至是.key.say`。
2> Brad Gilbert..：
.kv 返回一个平面序列。
my %h = (
a => 3,
b => 2,
c => 1,
);
say %h.kv.perl;
# ("a", 3, "c", 1, "b", 2).Seq
如果对它进行排序，则不必将键及其关联值保留下来。
say %h.kv.sort.perl;
# (1, 2, 3, "a", "b", "c").Seq
因此，您想在拆分成对之前对其进行排序。
# default sort order (key first, value second)
say %h.sort.perl;
# (:a(3), :b(2), :c(1)).Seq
say %h.sort: *.value; # sort by value only (tied values are in random order)
# (:c(1), :b(2), :a(3)).Seq
say %h.sort: *.invert; # sort by value first, key second
# (:c(1), :b(2), :a(3)).Seq
say %h.sort: *.kv.reverse; # sort by value first, key second
# (:c(1), :b(2), :a(3)).Seq
排序后，您可以将其作为Pair对象的序列：
# default $_
for %h.sort: *.invert {
say .key ~ ' => ' ~ .value
}
# extract as named attributes
for %h.sort: *.invert -> (:$key, :$value) {
say "$key => $value"
}
# more explicit form of above
for %h.sort: *.invert -> Pair $ (:key($key), :value($value)) {
say "$key => $value"
}
或者，您也可以在排序后将对分开：（
请注意两级结构。）
say %h.sort(*.invert).map(*.kv).perl;
# (("c", 1).Seq, ("b", 2).Seq, ("a", 3).Seq).Seq
say %h.sort(*.invert)».kv.perl;
# (("c", 1).Seq, ("b", 2).Seq, ("a", 3).Seq).Seq
# default $_
for %h.sort(*.invert).map(*.kv) {
say .key ~ ' => ' ~ .value
}
# extract inner positional parameters
for %h.sort(*.invert).map(*.kv) -> ($k,$v) {
say "$k => $v"
}
# `».kv` instead of `.map(*.kv)`
for %h.sort(*.invert)».kv -> ($k,$v) {
say "$k => $v"
}
您甚至可以在拉开配对对象后将其弄平。
say %h.sort(*.invert).map(*.kv).flat.perl;
# ("c", 1, "b", 2, "a", 3).Seq
say %h.sort(*.invert)».kv.flat.perl;
# ("c", 1, "b", 2, "a", 3).Seq
for %h.sort(*.invert).map(*.kv).flat -> $k, $v {
say "$k => $v"
}
for %h.sort(*.invert)».kv.flat -> $k, $v {
say "$k => $v"
}
（请注意，».method仅在一个方法调用上进行映射。要在两个方法上进行映射，则需要».method1».method2，或仅使用map .map(*.method1.method2)。
因此，在».kv.flat上文中，仅.kv方法在值上进行了映射。）
京公网安备 11010802041100号