Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Hashes aren't being differently randomized

by demerphq (Chancellor)
on Jun 27, 2006 at 21:56 UTC ( #557878=note: print w/replies, xml ) Need Help??


in reply to Hashes aren't being differently randomized

I think you need a debugging perl for the environment var to work. But you can get the same effect from Hash::Util::hash_seed(), which returns 0 if hash seed randomization is NOT in effect. From what i can tell Activestates builds disable this feature.

---
$world=~s/war/peace/g

  • Comment on Re: Hashes aren't being differently randomized

Replies are listed 'Best First'.
Re^2: Hashes aren't being differently randomized
by Hue-Bond (Priest) on Jun 27, 2006 at 22:59 UTC
    I think you need a debugging perl for the environment var to work. [...] you can get the same effect from Hash::Util::hash_seed()

    Both environment variables shown in the OP seem to be working:

    $ PERL_HASH_SEED_DEBUG=1 perl -MHash::Util=hash_seed -le'print hash_se +ed' HASH_SEED = 165032588 165032588 $ PERL_HASH_SEED_DEBUG=1 perl -MHash::Util=hash_seed -le'print hash_se +ed' HASH_SEED = 725441538 725441538

    tye's getKeyCollisions shows always the same output here:

    $ PERL_HASH_SEED_DEBUG=1 perl gkc.pl | md5sum HASH_SEED = 501557310 e4d6401f730eede592733482fac0ec61 - $ PERL_HASH_SEED_DEBUG=1 perl gkc.pl | md5sum HASH_SEED = 1324598606 e4d6401f730eede592733482fac0ec61 -

    I don't know if it's supposed to do so or not. I'm beginning to take a fancy to this :) since it seems to be impossible to obtain some different output of anything between runs of perl (well, anything except hash seeds!).

    --
    David Serrano

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://557878]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2023-02-08 07:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (40 votes). Check out past polls.

    Notices?