#!/usr/local/bin/perl

$| =1;

# Directory where the data base files will be at
###$EtcDir

# Directory where the veronica data files are at
###$NewDataDir

dbmopen (%FileNumb, "$EtcDir/FileNum", 0666) ||
		 die "Can't open database: $!\n";

dbmopen (%Word, "$EtcDir/Offset", 0666) ||
		 die "Can't open database: $!\n";

open (DATA, "$DataDir/Data.offset.0.5");

while (<DATA>)
{
	$Count++;
	if (($Count % 100) == 0) {print "\r$Count lines read";}
	chop;
	if (/#(.*)/)
	{
		($FileNumber, $File) = split (/:/, $1);
		$FileNumb{$FileNumber} = $File;
	}
	else
	{
		($Letters, $Offset) = split (/:/, $_);
		$Word{$Letters} = $Offset;
	}
}

print "\r$Count lines read\n";
