Help for this page

Select Code to Download


  1. or download this
        my @elements = {'A'..'Z', 0 .. 9 };
    my $i = 0;
    my @regkey;
    while($i++ < 15) { push(@regkey,$elements[rand($#elements + 1)]); 
+}
    print @regkey, "\n";
  2. or download this
     HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80
+e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HAS
+H(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a
+90)HASH(0x80e4a90)
  3. or download this
        my @elements = ('A'..'Z', 0..9);
    my $regkey = join '', map { $elements[ rand @elements ] } 1..15;
  4. or download this
        > However, the re engine in Perl is far more sophisticated and
    > capable of better matches