#!/usr/people/gdata/bin/perl 

#############################
#####	Start of Main	#####
#############################

print $#ARGV;

&err ( 5 ) unless ( $#ARGV == 0 );


$factlist = $ARGV[0];
$OUTFILEDBM = $ARGV[0];

print $factlist, "\n";
print $OUTFILEDBM, "\n";

$factcount = 0;

print "\nOpening input file:  ".$factlist;
open (FACTLIST, $factlist) || &err (2);

print "\nOpening output dbm file:  ".$OUTFILEDBM."\0";
dbmopen (%FACTDBM, $OUTFILEDBM, 0666 ) || &err (3) ;

print "\nScanning in facts . . .\n";

while (<FACTLIST>)
	{
#	print "count = ".$fact_count."\n";
#	print "fact  = ";
#	print $_;
#	print "\n";

	$fact_count++;
	$FACTDBM { $fact_count } = $_;
	}

$FACTDBM { 0 } = $fact_count;

foreach $key ( sort by_number ( keys %FACTDBM ) ) 
	{
	print "Key = ", $key, "\n";
	print $FACTDBM { $key };
	}

dbmclose (FACTDBM);

close (FACTLIST);

print "\n\nDone.\n\n";
exit ();

#############################
#####	End of Main	#####
#############################


#-------#
 sub err
#-------#
	{
	print "\n\nERROR #@_[0]\n";

	print " Usage:\n\n";
 	print " readlist.pl <source.filename>\n\n";
	print "     Please make sure the required filenames are correct.\n\n";
	exit ( );
	}

#-------------#
 sub by_number
#-------------#
	{
	$a <=> $b;
	}