All pastes #729752 Raw Edit

Joel

public text v1 · immutable
·published 2007-10-08 08:50 UTC
rendered paste body
#!/usr/bin/perl -w


use strict;
use BerkeleyDB;

my $database = "my.db";
my (%db_hash, $key, $value);

tie %db_hash, 'BerkleyDB::Hash', -Filename => $database, -Flags => DB_RDONLY or die "Cannot open $database: $!\n";

 while (($key, $value ) = each %db_hash){
  print "$key, $value\n";
 }

untie %db_hash;