tie %data_hash, "SDBM_File", "data_dbm_file", O_RDWR|O_CREAT, 0666 || die "Cannot open file 'data_dbm_file': $!\n";
%data_hash = ();
$sqlSelect = "SELECT field1, field2 FROM $data_db";
$sth = $dbh->prepare($sqlSelect) || die "Cannot prepare: " . $dbh->errstr();
$sth->execute() or die "Cannot execute: " . $sth->errstr();
while (@data = $sth->fetchrow_array()) {
my $data_to_store = crypt($data[1], $private_key);
$data_hash{$data[0]} = $data_to_store;
}
untie %data_hash;
$sth->finish();
####
bogA4dxaWfeMo:Namen_
bogA4dxaWfeMo:Namen_
bogA4dxaWfeMo:Namen
bogA4dxaWfeMo:Name
bogA4dxaWfeMo:Namen_0
bogA4dxaWfeMo:Namen_0
bogA4dxaWfeMo:Namen
bogA4dxaYbogA4dxaWfeMo:Name
bogA4dxaWfeMo:Name
bogA4dxaWfeMo:Namen
acbogA4dxaWfeMo:Namen
abogA4dxaWfeMo:Namen
##
##
tie %h, "DB_File", "data", O_RDWR|O_CREAT, 0666, $DB_HASH or die "Cannot open file 'data': $!\n";
print "Content-type:text/html\n\n";
foreach my $key (sort keys %h) {
print "
$key -> $h{$key}\n";
}