Select Code to Download

$DB_BTREE->{'flags'} = R_DUP ;
my $x = tie %dictf, "DB_File", "f.db", O_RDWR|O_CREAT, 0666, $DB_BTREE
+ or die "Cannot open file f.db: $!\n";
...
$status == 0 ;
$status = $x->seq($key, $value, R_NEXT) )
{ print "$key -> $value\n"; }

0

-rw-r--r-- 1 xxxxx xxx 4.2G Dec  3 14:03 f.db