Your IP : 216.73.217.17

Current Path : /usr/local/assp/deluxe/
Upload File :
Current File : //usr/local/assp/deluxe/bkread.pl

#!/usr/local/perls/perl-5.30.0/bin/perl
#
# set your ASSP v2 Perl location in the row 1 of this script !!
# bkread.pl read any berkeleydb file 
# chmod 755 before executing it
# chmod 644 once you executed it
# set the file location here =>> my $filename =
  
  use BerkeleyDB;
  # set the file bdb location here =>> my $filename =
  my $filename = '/usr/local/assp/persblack.bdb';
  my $dbh = new BerkeleyDB::Hash(
          -Filename => $filename)
          or die "Error opening $filename : $! $BerkeleyDB::Error\n";

my $cursor = $dbh->db_cursor() ;
    while ($cursor->c_get($k, $v, DB_NEXT) == 0) {
        print "Key: " . $k . ", value: " . $v . "\n";
    }

exit;