perl:洗牌值排序哈希？

Question

首先对不起我的英语 - 我希望你能理解我。

有一个散列:

$hash{a} = 1;
$hash{b} = 3;
$hash{c} = 3;
$hash{d} = 2;
$hash{e} = 1;
$hash{f} = 1;

我想按值(而不是键)对它进行排序，所以我有:

for my $key ( sort { $hash{ $a } <=> $hash{ $b } } keys %hash  ) { ... }

一开始我得到所有值为 1 的键，然后是值 2，等等……太棒了。

但是如果哈希没有改变，键的顺序(在这个按值排序中)总是相同的。

问题:如何打乱排序结果，以便每次运行“for”循环时，我都会得到不同顺序的键值 1、值 2 等？

Answer 1

不太确定我是否理解您的需求，但是这样可以吗:

use List::Util qw(shuffle);

my %hash;
$hash{a} = 1;
$hash{b} = 3;
$hash{c} = 3;
$hash{d} = 2;
$hash{e} = 1;
$hash{f} = 1;

for my $key (sort { $hash{ $a } <=> $hash{ $b } } shuffle( keys %hash  )) {
    say "hash{$key} = $hash{$key}"
}