1) Can you specify an initial size for the table? I need to load about
2.6 million strings in to a table, and the intermittent reorgs of the
table slow the load down considerably.
2) Can you make the table read only? the tie takes &GDBM_WRCREAT as a
parameter, and a priv spec of 0640. There is
83:local $a = 0;
Why use $a instead of a lexical variable?
> 14788 0.072475 0.2784:my ($addr) = @_;
> 14788 0.630970 0.71000085:tie %hash,
> "GDBM_File",$whois_record, &GDBM_WRCREAT, 0644;
>
> 11666247 547.49
0.7185:tie %hash,
"GDBM_File",$whois_record, &GDBM_WRCREAT, 0644;
11666247 547.4904 679.270086:foreach my $cidr (keys %hash){
11666247 595.2517 736.350087: my $block = new Net::Netmask($cidr);
11666247 581.9811 698.190088: if (($block -> match($addr))
ently undefined stuff was here
# Remove Before Flight
&reqTester;
# This is just to get the format/layout used by wreq
# so we know what we are dealing with
sub reqTester() {
use GDBM_File;
use Fcntl ':flock';
# We'll setup a few variables for use in
> "use GDBM_File;" works OK
what did your tie statement look like?
I have perl 5.6.0 with GDBM support (libgdbm) compiled and tested.
"use GDBM_File;" works OK, but files generated this way do not seem to be GNU
DBM files. They rather look like NDBM files (this arose from the comparison of
perl-generated GDBM files with GNU-gettext generated fil
