in reply to fast simple DB (sqlite?) skeleton?
use warnings; use strict; my $randomword = db_ref("HASH"); my $numofwords = 50000000; my @chars = ("A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *)); for my $i (0 .. $numofwords - 1) { my $rin = join("" => @chars[map { rand @chars } (1 .. 5)]); if (defined $randomword->{$rin}) { $randomword->{$rin} .= ",$i"; } else { $randomword->{$rin} = $i; } } ## do some stuff with $randomword untie %{ $randomword }; # when you're done
|
|---|