#
# loader -- this program does not do anything. It is for
# explanatory purposes only. Don't run it!
#
use Fame;
# open output database for updating
$db=new Fame::DB &Fame::HLI::HUMODE, "prices";
die "Can't open database" unless $db;
while(<>) {
# unpack in the format YYYYMMDDIIIIIIIIIPPPPPPPPP
($date, $id, $price) = unpack("A8 A9 A9", $_);
if ($db->Exists($id)) {
$db->Write($id, $date, $price);
}
else {
print STDERR "New identifier $id ignored (line $.: $_)\n";
}
}