在尝试理解
refp’s solution随机哈希值选择的工作原理时,我发现了一些奇怪的东西.
通过反复调用以下Perl脚本,我始终发现返回的第一个结果是相同的.返回的后续值是随机的：
use strict;
use warnings;
use 5.010;
my %hash = map { $_ => ord $_ } 'a' .. 'z';
say( (@_=%hash)[1|rand@_] ) for 1 .. 10; # First value always 119
有趣的是,以下内容不会受此问题影响：
sub random_value { ( @_ )[ 1 | rand @_ ] }
say random_value %hash for 1 .. 10; # First value is random
say( (%hash)[1|rand keys %hash] ) for 1 .. 10; # First value is random
这已在Windows(ActivePerl 5.14.2)上测试过.
从表面上看,似乎设置@_与它有关,但我不确定.任何人都可以了解这里发生的事情吗？
编辑
我认为这个问题直到refp provided an update才得到解答.为什么arrayref形式没有遭受上面讨论的同样问题？ ：
[@_=%hash]->[1|rand@_] for 1 .. 10; # First value is random
解决方法
我怀疑存在竞争条件,其中@_未在第一次循环迭代中定义.
say( (@_=%hash)[1|rand@_] ) for 1 .. 10;
会变成
say( (@_=%hash)[1|rand ()] ) for 1 .. 10;
它逃避了警告,因为@_是预先声明的变量.你会注意到：
say( (my @a=%hash)[1|rand@a] ) for 1 .. 10;
崩溃和烧毁因为@a未在postscript中定义.
更新：
[@_=%hash]->[1|rand@_] for 1 .. 10;
没有任何不同.在您指定的同一语句中使用变量仍然是不好的做法.我猜,差异在于优先级有所改变,因此首先评估赋值.