open a gdbm file

[lakssreedhar]

I want to open a gdbm file.I tried the below code but cant open file error message is displayed

#!/usr/bin/perl -w
use strict;
use DB_File;

my (%HASH, $key, $val);
my $filename = "/home/DESKTOP/dict_final";
tie %HASH, 'DB_File', $filename, O_RDWR, 0666, $DB_HASH or die "Can't 
+open $filename: $!\n";
while (($key, $val) = each %HASH) {
    print "$key::$val\n";
}

[Athanasius]

I want to open a gdbm file.

From the documentation, it appears that the DB_File module cannot be used with gdbm files:

DB_HASH

This database type allows arbitrary key/value pairs to be stored in data files. This is equivalent to the functionality provided by other hashing packages like DBM, NDBM, ODBM, GDBM, and SDBM. Remember though, the files created using DB_HASH are not compatible with any of the other packages mentioned.

Try the GDBM_File module instead.

Hope that helps,

[Khen1950fx]

I think that you were thinking of something like this:

#!/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;

[lakssreedhar]

@Khen1950fx

i could read the file thanks for the code