#!/bin/perl
use POSIX;
use FileHandle;
use integer;
use GDBM_File;

use strict 'untie' ;
autoflush STDOUT 1;

tie %bitmaps, 'GDBM_File', "font.db", GDBM_READER, 0600, {}
	|| die "Couldn't tie to file";
#@Files = grep{ /Tbmp.*bin/ } readdir(BITMAPDIR); 

#foreach $i (@Files) {
#  open TMPFILE, "../font/bitm/$i";
#  ($jis) = ($i =~ /Tbmp(.*)\.bin/ );
#  read TMPFILE, $bitmap, 32; 
#  $bitmapdata = pack ("a32", $bitmap);
#  close TMPFILE;
#}

foreach $i (keys %bitmaps) {
  $j = length $bitmaps{$i};
  print "<$i--$j>";
}
untie %bitmaps;
