Help for this page

Select Code to Download


  1. or download this
    $ perl -V  | grep SEED
    PERL_HASH_SEED="-1"
  2. or download this
    #!/usr/bin/perl
use strict;
...
print hash_seed() . "\n";

print join( '', %t) ."\n";
  3. or download this
    $ for i in -1 0 1 42 garbage; do export PERL_HASH_SEED=$i; for j in 1 
+2 3; do perl test.pl; done; done
3657515954
...
eEcCaAbBdDfF
1729561246
eEcCaAbBdDfF