Help for this page

Select Code to Download

Select or download this

C:\test>junk0 -K=1e2
K:1e2 L:2
...
yqbz => 8356
hoym => 6193
exid => 29312

Select or download this

#! perl -slw
use strict;
...
$hash{ $_ } = int rand 32767 for map{ rndStr( $L, 'a'..'z' ) } 1 .. $K
+;

print "$_ => $hash{ $_ }" for ( keys %hash )[ 0 .. 9 ];