perl – 选择一个随机哈希键

发布时间：2020-12-15 21:14:19 所属栏目：大数据来源：网络整理

导读：如何选择随机哈希键？对于my Flash+Perl card game,我试图从一个哈希中挑选一个随机卡,钥匙是：“6铲”,“6俱乐部”等： my $card; my $i = 0; for $card (keys %{$user-{HAND}}) { last if rand(++$i) 1; } delete $user-{HAND}-{$card}; print "random ca

如何选择随机哈希键？

对于my Flash+Perl card game,我试图从一个哈希中挑选一个随机卡,钥匙是：“6铲”,“6俱乐部”等：

my $card;
                    my $i = 0;
                    for $card (keys %{$user->{HAND}}) {
                         last if rand(++$i) < 1;
                    }
                    delete $user->{HAND}->{$card};
                    print "random card: $cardn";

并且想知道它是否正确,如果有更好的方法

解决方法

更简洁一些：

my $random_value = $hash{(keys %hash)[rand keys %hash]};

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!