我在不改变哈希内容的情况下不时地运行哈希。我希望哈希每次都以随机顺序迭代(我知道哈希的内部顺序是随机的,但我需要随机顺序来改变)
我想要的代码如下:
for (my $i=1; $i<=$PopulationsizeA;$i++){
my $P1 = rand;
my $total=0;
my $Parent1='Parent1';
my $P1A;
while ((my $Genotype1, my $Fitness1)=each (%Normalisedfithash)){
$P1A=$P1-$total;
if ($Parent1 eq 'Parent1'){
if ($P1A<=$Fitness1){
$Parent1=$Genotype1;
$P1Tallyhash{$Genotype1}+=1;
}
else{
$total+=$Fitness1;
}
}
}
}
我需要%Normalisedfithash的顺序随机更改for循环的每次迭代。我看到了类似的question但是我不希望值随机更改键,而是希望键保持其关联值但随机改变顺序。
谢谢!
答案 0 :(得分:11)
最简单的方法可能是将您从哈希中获取的密钥列表改组。来自List::Util
的shuffle
是一个很好的实现。
use strict;
use warnings;
use List::Util 'shuffle';
...
foreach my $Genotype1( shuffle keys %Normalisedfithash ) {
my $Fitness1 = $Normalisedfithash{$Genotype1};
}
shuffle
每次都会以不同的顺序对列表进行洗牌。
编辑:我应该说每次都会以随机顺序对列表进行随机播放。顺序可能与前一次巧合相同。 :)
答案 1 :(得分:4)
use List::Util qw(shuffle);
...
foreach my $Genotype1 (shuffle( keys %Normalisedfithash )) {
my $Fitness1 = $Normalisedfithash{$Genotype1};
...
}