lakssreedhar has asked for the wisdom of the Perl Monks concerning the following question:

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";
}

[download]

Replies are listed 'Best First'.
Re: open a gdbm file
by Athanasius (Archbishop) on Oct 27, 2012 at 06:25 UTC
    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,

    Athanasius <°(((>< contra mundum

[reply]
Re: open a gdbm file
by Khen1950fx (Canon) on Oct 27, 2012 at 06:44 UTC
    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;

    [download]
[reply]
[d/l]
      @Khen1950fx

      i could read the file thanks for the code

[reply]

Back to Seekers of Perl Wisdom