crawl-ref/source/util/testdb.pl


1
2
3
4
5
6
7
8

#!/usr/bin/perl
use DB_File;

tie %descriptions, 'DB_File', "descriptions.db";
while (($k, $v) = each %descriptions)
   { print "$k -> $v\n" }

untie %descriptions ;