note
Khen1950fx
I think that you were thinking of something like this:
<c>
#!/usr/bin/perl
BEGIN {
$| = 1;
$^W = 1;
}
use strict;
use autodie;
use warnings;
use GDBM_File;
my (%hash, $key, $val);
my $filename = "/home/DESKTOP/dict_final";
tie %hash, 'GDBM_File', $filename, &GDBM_READER, 0640;
while (($key, $val) = each %hash) {
print "$key::$val\n";
}
untie %hash;
</c>
1001165
1001165