in reply to Re^2: Is it possible to "fix a seed" for hash?
in thread Is it possible to "fix a seed" for hash?
$ for i in {1..1000} ; do PERL_HASH_SEED=0 perl -lwe '%x = qw(a b c d +e f); print %x' ; done | sort | uniq -c 1000 cdefab
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
|
---|
In Section
Seekers of Perl Wisdom