#!/usr/npac/bin/perl

#/usr/local/bin/perl
$filename1='entry.dat';

open(FILE1,"$filename1");
$n = 0;
while (<FILE1>) {
	$this = $_;
	#print $this;
	if ($this =~ /^"(\d+)","(.+)","(...)",(.*)/) {
		print "$1\n";
		if ($table{$1} ne "") {
			print "duplicated key: $1\n";
		}
		else {
			$table{$1} = "yes";
			#print "$1\n";
		}
		$n++;
	}
}
#print "\nTotal $n built\n";
close(FILE1);
##############################################

exit;
