cdb-map: New program to construct CDB files.

[misc] / cdb-map

#! /usr/bin/perl

use CDB_File;

@ARGV >= 1 or die "usage: $0 CDB [INPUT ...]\n";
$f = shift;
$c = CDB_File->new($f, "$f.new") or die "CDB_File->new: $!\n";
while (<>) {
  chomp;
  m'^([^:]*):(.*)$' or die "bad assignment `$_'\n";
  $c->insert($1, $2);
}
$c->finish() or die "CDB_File->finish: $!\n";
exit 0;